home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / CAD / PIPE_PAK.ARJ / PIPE-PAK.MNU < prev    next >
Text File  |  1991-10-08  |  56KB  |  3,114 lines
  1. ***BUTTONS
  2. ;
  3. $p1=*
  4. ^c^c
  5. ^B
  6. ^O
  7. ^G
  8. ^D
  9. ^E
  10. ^T
  11. ***AUX1
  12. ;
  13. $p1=*
  14. ^C^C
  15. ^B
  16. ^O
  17. ^G
  18. ^D
  19. ^E
  20. ^T
  21.  
  22. ***POP1
  23. [Tools]
  24. [OSNAP]^C^C$p1= $p1=* OSNAP \
  25. CENter
  26. ENDpoint
  27. INSert
  28. [INTersection]INT
  29. MIDpoint
  30. NEArest
  31. NODe
  32. [PERpendicular]PER
  33. QUAdrant
  34. [QUICK,]QUICK,^Z$p1=*
  35. TANgent
  36. NONE
  37. [~--]
  38. [FILTERS...   ]$p1=filters $p1=*
  39. [Cancel]^C^C
  40. [U]^C^CU
  41. [Redo]^C^CREDO
  42. [List]^C^CLIST
  43.  
  44. **filters
  45. [Filters]
  46. .X
  47. .Y
  48. .Z
  49. .XY
  50. .XZ
  51. .YZ
  52. [TOOLS...]$p1= $p1=*
  53.  
  54. ***POP2
  55. [Draw]
  56. [Line]*^C^C$S=X $s=line line
  57. [Arc]*^C^C$S=X $s=poparc arc
  58. [Circle]*^C^C$S=X $s=popcircl circle
  59. [Polyline]*^C^C$S=X $s=pline pline
  60. [3D Polyline]*^C^C$S=X $S=3dpoly 3dpoly
  61. [Insert]^C^Csetvar attdia 1 $S=X $s=insert insert
  62. [Dtext]*^C^C$S=X $s=Dtext Dtext
  63. [Hatch...]^C^C$i=hatch1 $i=*
  64. [3D Construction...]$i=3dobjects $i=*
  65.  
  66. ***POP3
  67. [Modify]
  68. [Erase]*^C^C$S=X $s=erase erase si auto
  69. [Move]*^C^C$S=X $s=move move si auto
  70. [Copy]*^C^C$S=X $s=copy copy si auto
  71. [Properties]*^C^C$S=X $S=chprop chprop si auto
  72. [Break]*^C^C$S=X $S=break break
  73. [Fillet]*^C^C$S=X $S=fillet fillet
  74. [Mirror]*^C^C$S=X $S=mirror mirror auto
  75. [Trim]*^C^C$S=X $s=trim trim auto
  76. [Extend]*^C^C$S=X $s=extend extend auto
  77. [Stretch]*^C^C$S=X $s=stretch stretch crossing
  78. [Edit Polylines]^C^C^P+
  79. (defun m:p1(/ m:pa m:pc m:d m:w)(menucmd "S=X")(menucmd "S=PSEL");+
  80. (setq m:d T)(while m:d (setq m:pc (ssget))(setq m:pa (ssname m:pc 0));+
  81. (if(=(cdr(assoc 0 (entget m:pa))) "POLYLINE")(progn(setq m:d nil)+
  82. (m:p2 m:pa m:pc))(progn(prompt "Entity selected is not a polyline")(terpri);+
  83. (if (member (cdr (assoc 0 (entget m:pa))) '("LINE" "ARC"))(progn+
  84. (initget "Yes No")(setq m:w (getkword "Do you want to turn it into one? <Y>"));+
  85. (if (or (= m:w "Yes")(null m:w))(progn(setq m:d nil)(menucmd "S=X");+
  86. (menucmd "S=P0")(command "PEDIT" m:pa "yes" pause)))))))))+
  87. (defun m:p2(m:pa m:pc / m:pb)(menucmd "S=X")+
  88. (if (= (setq m:pb (cdr (assoc 70 (entget m:pa)))) nil)(menucmd "S=P0");+
  89. (progn (setq m:pb (/ m:pb 2))(if (>= m:pb 8)(menucmd "S=P16");+
  90. (if(< m:pb 4)(menucmd "S=P0")(menucmd "S=P8")))))(command "PEDIT" m:pa pause))+
  91. (defun perror (msg)(setq *error* m:err m:err nil)(princ))+
  92. (defun C:PEDITM (/ m:err)(setq m:err *error* *error* perror)(m:p1);+
  93. (setq *error* m:err m:err nil)(princ))(princ) PEDITM ^P
  94.  
  95. ***POP4
  96. [Display]
  97. [Redraw]'redraw
  98. [~--]
  99. [Zoom Window]'zoom w
  100. [Zoom Previous]'zoom p
  101. [Zoom All]^C^Czoom a
  102. [Zoom Dynamic]'zoom d
  103. [~--]
  104. [Pan]'pan
  105. [Dview Options...]^C^C$i=dviewi $i=*
  106. [Vpoint 3D...]^C^C$S=X $S=VPOINT3D $i=3dviews $i=*
  107. [~--]
  108. [Plan View (UCS)]^C^Cplan;;
  109. [Plan View (World)]^C^Cplan wo
  110. [~--]
  111. [Set Viewports...]^C^C$S=X $S=vports $i=vporti $i=*
  112.  
  113. ***POP5
  114. [Settings]
  115. [UCS Dialogue...]^C^C$S=X $s=ucs1 dducs
  116. [UCS Options...]^C^C$S=X $S=ucs1 $i=ucs $i=*
  117. [UCS Previous]^C^CUCS P
  118. [~--]
  119. [Drawing Aids...]'ddrmodes
  120. [Entity Creation...]'ddemodes
  121. [Modify Layer...]'ddlmodes
  122.  
  123. ***POP6
  124. [Options]
  125. [Ashade...]^C^C^P(progn(setq m:err *error*)(princ))+
  126. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil)(princ))+
  127. (cond ((null C:SCENE)(vmon)(if (/= nil (findfile "ashade.lsp"));+
  128. (progn (terpri)(prompt "Please wait...  Loading ashade.  ")(load "ashade")+
  129. (menucmd "I=AS")(menucmd "I=*")(setq *error* m:err m:err nil))(progn (terpri);+
  130. (prompt "The file 'Ashade.lsp' was not found in your current search directories.")+
  131. (terpri)(prompt "Check your AutoShade Manual for installation instructions.");+
  132. (setq *error* m:err m:err nil)(princ))))+
  133. (T (setq *error* m:err m:err nil)(menucmd "I=AS")(menucmd "I=*")(princ))) ^P
  134. [Fonts...]^C^C$i=fonts1 $i=*
  135.  
  136. ***POP7
  137. [File ]
  138. [Save ]^C^CSave;
  139. [End  ]^C^Cend
  140. [Quit ]^C^C$S=X $s=quit quit
  141. [~--  ]
  142. [Plot ]^C^Cplot
  143. [Print]^C^Cprplot
  144.  
  145. ***POP8
  146. [Help]
  147. [Help]'help
  148.  
  149.  
  150. ***icon
  151. **poly
  152. [Set Polymesh and Polyline Variables]
  153. [acad(pmq)]'setvar surftype 5
  154. [acad(pmc)]'setvar surftype 6
  155. [acad(pmb)]'setvar surftype 8
  156. [acad(plq)]'setvar splinetype 5
  157. [acad(plc)]'setvar splinetype 6
  158. [ Set SPLINESEGS]'setvar splinesegs \
  159. [ Set SPLFRAME]'setvar splframe \
  160. [ Set DENSITY]'setvar surfu \'setvar surfv \
  161. [ Exit]$p3=pop3
  162.  
  163.  
  164. **as
  165. [Select Ashade Command]
  166. [acad(camera)]^C^C$S=X $S=CAMERA camera \\\$i=as $i=*
  167. [acad(camview)]^C^C$S=X $S=ASHADE camview
  168. [acad(point)]^C^C$S=X $S=LIGHTS LIGHT \p \$i=as $i=*
  169. [acad(directed)]^C^C$S=X $S=LIGHTS LIGHT \d \\$i=as $i=*
  170. [acad(scene)]^C^C$S=X $S=ACTION scene
  171. [acad(filmroll)]^C^C$S=X $S=ACTION filmroll
  172. [ Exit]^c^c
  173.  
  174. **ucs
  175. [User Coordinate System Options]
  176. [ Set to World]^C^Cucs world
  177. [acad(left)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  178. ucs 3p \@0,-1,0 @0,0,1 ^P
  179. [ Set to Screen]^C^Cucs view
  180. [acad(top)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  181. ucs 3p \@1,0,0 @0,1,0 ^P
  182. [acad(front)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  183. ucs 3p \@1,0,0 @0,0,1 ^P
  184. [acad(bottom)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  185. ucs 3p \@1,0,0 @0,-1,0 ^P
  186. [acad(back)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  187. ucs 3p \@-1,0,0 @0,0,1 ^P
  188. [acad(right)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  189. ucs 3p \@0,1,0 @0,0,1 ^P
  190. [ Exit]^c^c
  191.  
  192. **3DViews
  193. [Select View Direction]
  194. [acad(ul)]^C^CVPOINT R;<<135;
  195. [acad(l)]^C^CVPOINT R;<<180;
  196. [acad(ll)]^C^CVPOINT R;<<225;
  197. [acad(user)]
  198. [acad(u)]^C^CVPOINT R;<<90;
  199. [acad(p)]^C^Cvpoint 0,0,1
  200. [acad(lo)]^C^CVPOINT R;<<270;
  201. [acad(user)]
  202. [acad(ur)]^C^CVPOINT R;<<45;
  203. [acad(r)]^C^CVPOINT R;<<0;
  204. [acad(lr)]^C^CVPOINT R;<<315;
  205. [acad(user)]
  206. [acad(t)]VPOINT;;
  207. [acad(h)]$S=X $S=HIDE
  208. [ Exit]^c^c
  209.  
  210. **dviewi
  211. [DVIEW Options]
  212. [acad(dvca)]^C^C$S=X $S=DVIEW select;\dview;p;;ca;\\;
  213. [acad(dvzo)]^C^C$S=X $S=DVIEW select;\dview;p;;z;\;
  214. [acad(dvpa)]^C^C$S=X $S=DVIEW select;\dview;p;;pa;\\;
  215. [ Exit]^c^c
  216.  
  217. **3DObjects
  218. [3D Objects and 3D Surface Commands]
  219. [acad(box3d)]^C^C^P(progn(setq m:err *error*)(prin1))+
  220. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  221. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  222. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  223. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  224. (prompt "Check installation of the Support Files and try again.")+
  225. (princ))))(T (princ)))(cond ((not (null C:BOX))(C:BOX))(T (princ)));+
  226. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  227. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  228. [acad(wedge)]^C^C^P(progn(setq m:err *error*)(princ));+
  229. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  230. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  231. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  232. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  233. (prompt "Check installation of the Support Files and try again.")+
  234. (princ))))(T (princ)))(cond ((not (null C:WEDGE))(C:WEDGE))(T (princ)));+
  235. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  236. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  237. [acad(rev)]^C^C$S=X $S=3D revsurf
  238. [acad(surftab1)]'setvar surftab1 \$I=*
  239. [acad(pyramid)]^C^C^P(progn(setq m:err *error*)(princ))+
  240. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  241. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  242. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  243. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  244. (prompt "Check installation of the Support Files and try again.")+
  245. (princ))))(T (princ)))(cond ((not (null C:PYRAMID))(C:PYRAMID))(T (princ)));+
  246. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  247. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  248. [acad(cone)]^C^C^P(progn(setq m:err *error*)(princ));+
  249. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  250. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  251. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  252. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  253. (prompt "Check installation of the Support Files and try again.")+
  254. (princ))))(T (princ)))(cond ((not (null C:CONE))(C:CONE))(T (princ)));+
  255. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  256. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  257. [acad(rul)]^C^C$S=X $S=3D rulesurf
  258. [acad(surftab2)]'setvar surftab2 \$I=*
  259. [acad(dome)]^C^C^P(progn(setq m:err *error*)(princ));+
  260. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  261. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  262. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  263. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  264. (prompt "Check installation of the Support Files and try again.")+
  265. (princ))))(T (princ)))(cond ((not (null C:DOME))(C:DOME))(T (princ)));+
  266. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  267. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  268. [acad(dish)]^C^C^P(progn(setq m:err *error*)(princ));+
  269. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  270. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  271. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  272. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  273. (prompt "Check installation of the Support Files and try again.")+
  274. (princ))))(T (princ)))(cond ((not (null C:DISH))(C:DISH))(T (princ)));+
  275. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  276. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  277. [acad(edg)]^C^C$S=X $S=3D edgesurf
  278. [acad(mesh)]^C^C^P(progn(setq m:err *error*)(princ));+
  279. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  280. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  281. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  282. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  283. (prompt "Check installation of the Support Files and try again.")+
  284. (princ))))(T (princ)))(cond ((not (null C:MESH))(C:MESH))(T (princ)));+
  285. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  286. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  287. [acad(sphere)]^C^C^P(progn(setq m:err *error*)(princ));+
  288. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  289. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  290. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  291. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  292. (prompt "Check installation of the Support Files and try again.")+
  293. (princ))))(T (princ)))(cond ((not (null C:SPHERE))(C:SPHERE))(T (princ)));+
  294. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  295. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  296. [acad(torus)]^C^C^P(progn(setq m:err *error*)(princ));+
  297. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  298. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  299. (load "3d")(menucmd "S=X")(menucmd "S=3D2"))(progn (terpri)(prompt +
  300. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  301. (prompt "Check installation of the Support Files and try again.")+
  302. (princ))))(T (princ)))(cond ((not (null C:TORUS))(C:TORUS))(T (princ)));+
  303. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  304. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  305. [acad(tab)]^C^C$S=X $S=3D tabsurf
  306. [ Exit]^c^c
  307.  
  308. **fonts1
  309. [Select Text Font]
  310. [acad(romans)]^c^cstyle romans romans
  311. [acad(romanc)]^c^cstyle romanc romanc
  312. [acad(italicc)]^c^cstyle italicc italicc
  313. [acad(romand)]^c^cstyle romand romand
  314. [acad(romant)]^c^cstyle romant romant
  315. [acad(italict)]^c^cstyle italict italict
  316. [acad(monotxt)]^c^cstyle monotxt monotxt
  317. [ Next]$i=fonts2 $i=*
  318. [ Exit]^c^c
  319.  
  320. **fonts2
  321. [Select Text Font]
  322. [acad(gothice)]^c^cstyle gothice gothice
  323. [acad(greeks)]^c^cstyle greeks greeks
  324. [acad(scripts)]^c^cstyle scripts scripts
  325. [acad(gothicg)]^c^cstyle gothicg gothicg
  326. [acad(greekc)]^c^cstyle greekc greekc
  327. [acad(scriptc)]^c^cstyle scriptc scriptc
  328. [acad(gothici)]^c^cstyle gothici gothici
  329. [ Next]$i=fonts3 $i=*
  330. [ Exit]^c^c
  331.  
  332. **fonts3
  333. [Select Text Font]
  334. [acad(syastro)]^c^cstyle syastro syastro
  335. [acad(symath)]^c^cstyle symath symath
  336. [acad(symusic)]^c^cstyle symusic symusic
  337. [acad(symap)]^c^cstyle symap symap
  338. [acad(symeteo)]^c^cstyle symeteo symeteo
  339. [acad(txt)]^c^cstyle txt txt
  340. [acad(user)]
  341. [ Beginning]$i=fonts1 $i=*
  342. [ Exit]^c^c
  343.  
  344. **hatch1
  345. [Select Hatch Pattern]
  346. [ Previous/User]^c^chatch
  347. [acad(ansi31)]^c^chatch ansi31
  348. [acad(ansi32)]^c^chatch ansi32
  349. [acad(ansi34)]^c^chatch ansi34
  350. [acad(ansi35)]^c^chatch ansi35
  351. [acad(ansi33)]^c^chatch ansi33
  352. [acad(ansi36)]^c^chatch ansi36
  353. [acad(ansi37)]^c^chatch ansi37
  354. [acad(ansi38)]^c^chatch ansi38
  355. [acad(box)]^c^chatch box
  356. [acad(brass)]^c^chatch brass
  357. [acad(brick)]^c^chatch brick
  358. [acad(clay)]^c^chatch clay
  359. [acad(cork)]^c^chatch cork
  360. [ Next]$i=hatch2 $i=*
  361. [ Exit]^c^c
  362.  
  363. **hatch2
  364. [Select Hatch Pattern]
  365. [acad(cross)]^c^chatch cross
  366. [acad(dash)]^c^chatch dash
  367. [acad(dolmit)]^c^chatch dolmit
  368. [acad(dots)]^c^chatch dots
  369. [acad(earth)]^c^chatch earth
  370. [acad(escher)]^c^chatch escher
  371. [acad(flex)]^c^chatch flex
  372. [acad(grass)]^c^chatch grass
  373. [acad(grate)]^c^chatch grate
  374. [acad(hex)]^c^chatch hex
  375. [acad(honey)]^c^chatch honey
  376. [acad(hound)]^c^chatch hound
  377. [acad(insul)]^c^chatch insul
  378. [acad(line)]^c^chatch line
  379. [ Next]$i=hatch3 $i=*
  380. [ Exit]^c^c
  381.  
  382. **hatch3
  383. [Select Hatch Pattern]
  384. [acad(mudst)]^c^chatch mudst
  385. [acad(net)]^c^chatch net
  386. [acad(net3)]^c^chatch net3
  387. [acad(plast)]^c^chatch plast
  388. [acad(plasti)]^c^chatch plasti
  389. [acad(sacncr)]^c^chatch sacncr
  390. [acad(square)]^c^chatch square
  391. [acad(stars)]^c^chatch stars
  392. [acad(steel)]^c^chatch steel
  393. [acad(swamp)]^c^chatch swamp
  394. [acad(trans)]^c^chatch trans
  395. [acad(triang)]^c^chatch triang
  396. [acad(zigzag)]^c^chatch zigzag
  397. [acad(angle)]^c^chatch angle
  398. [ Beginning]$i=hatch1 $i=*
  399. [ Exit]^c^c
  400.  
  401. **vporti
  402. [Viewport Settings (Current is dominant)]
  403. [acad(vp1)]^C^CVPORTS;SI
  404. [acad(vp3v)]^C^CVPORTS;SI;;3;v
  405. [acad(vp3h)]^C^CVPORTS;SI;;3;h
  406. [acad(vp4)]^C^CVPORTS;SI;;4
  407. [acad(vp2v)]^C^CVPORTS;SI;;2;v
  408. [acad(vp3r)]^C^CVPORTS;SI;;3;r
  409. [acad(vp3l)]^C^CVPORTS;SI;;3;l
  410. [acad(vp4l)]^C^C^PUNDO;M;(setq m:g (getvar "gridmode"));SETVAR;GRIDMODE;0;+
  411. VPORTS;SI;;2;;(setvar "CVPORT" (car (cadr (vports))))(princ);;2;;;J;;+
  412. (car (cadr (vports)));(setvar "CVPORT" (car (cadr (vports))))(princ)+
  413. ;;3;h;(setvar "gridmode" m:g)(princ);ZOOM;A;(setvar "CVPORT"+
  414. (car (cadddr (vports))))(setvar "gridmode" m:g)(princ);ZOOM;A;+
  415. (setvar "CVPORT" (car (cadddr (vports))))(setvar "gridmode" m:g)(princ);+
  416. ZOOM;A;(setvar "CVPORT" (car (cadddr (vports))))(setvar "gridmode" m:g)+
  417. (princ);ZOOM;A;UNDO;E ^P
  418. [acad(vp2h)]^C^CVPORTS;SI;;2;h
  419. [acad(vp3a)]^C^CVPORTS;SI;;3;a;
  420. [acad(vp3b)]^C^CVPORTS;SI;;3;b;
  421. [acad(vp4r)]^C^C^PUNDO;M;(setq m:g (getvar "gridmode"));SETVAR;GRIDMODE;0;+
  422. VPORTS;SI;;2;;;2;;(setvar "CVPORT" (car (caddr (vports))));;j;;+
  423. (car (caddr (vports)));(setvar "CVPORT" (car (cadr (vports))));;3;h;+
  424. (setvar "gridmode" m:g)(princ);ZOOM;A;(setvar "CVPORT" (car (cadddr (vports))))+
  425. (setvar "gridmode" m:g)(princ);ZOOM;A;(setvar "CVPORT" (car (cadddr (vports))))+
  426. (setvar "gridmode" m:g)(princ);ZOOM;A;(setvar "CVPORT" (car (cadddr (vports))))+
  427. (setvar "gridmode" m:g)(princ);ZOOM;A;UNDO;E ^P
  428. [ Join Viewports]^C^CVPORTS;J
  429. [ Restore Saved]^C^CVPORTS;R;
  430. [ List Saved]^C^CVPORTS;?;
  431. [ Exit]^c^c
  432.  
  433. ***SCREEN
  434. **S
  435. [AutoCAD]^C^C$S=X $S=S $P1=POP1 $P3=POP3
  436. [* * * *]$S=OSNAPB
  437. [Setup]^C^C^P(progn(prompt "Loading setup...   ")(load "setup")) ^P$S=X $S=UNITS
  438.  
  439. [Pipe-PAK]$S=X $S=PP
  440. [BLOCKS]$S=X $S=BL
  441. [DIM:]$S=X $S=DIM ^C^CDIM
  442. [DISPLAY]$S=X $S=DS
  443. [DRAW]$S=X $S=DR
  444. [EDIT]$S=X $S=ED
  445. [INQUIRY]$S=X $S=INQ
  446. [LAYER:]$S=X $S=LAYER ^C^CLAYER
  447. [SETTINGS]$S=X $S=SET
  448. [PLOT]$S=X $S=PLOT
  449. [UCS:]$S=X $S=UCS1 ^C^CUCS
  450. [UTILITY]$S=X $S=UT
  451.  
  452. [3D]$S=X $S=3D
  453. [ASHADE]^C^C^P(progn(setq m:err *error*)(prin1))(defun *error* (msg)(princ msg)+
  454. (setq *error* m:err m:err nil)(princ))(cond ((null C:SCENE)(vmon)+
  455. (if (/= nil (findfile "ashade.lsp"))(progn (terpri);+
  456. (prompt "Please wait...  Loading ashade.  ")(load "ashade")+
  457. (menucmd "S=X")(menucmd "S=ASHADE")(setq *error* m:err m:err nil))(progn (terpri);+
  458. (prompt "The file 'Ashade.lsp' was not found in your current search directories.")+
  459. (terpri)(prompt "Check your AutoShade Manual for installation instructions.");+
  460. (setq *error* m:err m:err nil)(princ))))+
  461. (T (setq *error* m:err m:err nil)(menucmd "S=X")(menucmd "S=ASHADE")(princ))) ^P
  462.  
  463. [SAVE:]^C^CSAVE
  464. **X 3
  465.  
  466.  
  467.  
  468.  
  469.  
  470.  
  471.  
  472.  
  473.  
  474.  
  475.  
  476.  
  477.  
  478.  
  479.  
  480. [__LAST__]$S= $S=
  481. [  DRAW  ]^C^C$S=X $S=DR
  482. [  EDIT  ]^C^C$S=X $S=ED
  483.  
  484. **PP 3
  485. [Pipe-PAK]
  486. [********]
  487. [PIPE:]^P(cond ((null C:PIPE) +
  488. (vmon) (prompt "Please Wait...Loading Data.   ") +
  489. (load "c:\\pipe-pak\\pipe")) (T (princ))) ^Ppipe
  490.  
  491. **BL 3
  492. [ATTDEF:]$S=X $S=ATTDEF ^C^CATTDEF
  493. [BASE:]^C^CBASE
  494. [BLOCK:]$S=X $S=BLOCK ^C^CBLOCK
  495. [INSERT:]$S=X $S=INSERT ^C^CINSERT
  496. [MINSERT:]$S=X $S=MINSERT ^C^CMINSERT
  497. [WBLOCK:]$S=X $S=WBLOCK ^C^CWBLOCK
  498. **DS 3
  499.  
  500. [ATTDISP:]$S=X $S=ATTDISP ^C^CATTDISP
  501. [DVIEW:]$S=X $S=DVIEW ^C^CDVIEW
  502. [PAN:]'PAN
  503. [PLAN:]$S=X $S=PLAN ^C^CPLAN
  504. [REDRAW:]'REDRAW
  505. [REDRALL:]'REDRAWALL
  506. [REGEN:]^C^CREGEN
  507. [REGNALL:]^C^CREGENALL
  508. [RGNAUTO:]$S=X $S=RGNAUTO ^C^CREGENAUTO
  509. [VIEW:]$S=X $S=VIEW 'VIEW
  510. [VIEWRES:]$S=X $S=VIEWRES ^C^CVIEWRES
  511. [VPOINT:]$S=X $S=VPOINT ^C^CVPOINT
  512. [ZOOM:]$S=X $S=ZOOM 'ZOOM
  513. **DR 3
  514. [ARC]$S=X $S=ARC
  515. [ATTDEF:]$S=X $S=ATTDEF ^C^CATTDEF
  516. [CIRCLE]$S=X $S=CIRCLE
  517. [DONUT:]^C^CDONUT
  518. [DTEXT:]$S=X $S=DTEXT ^C^CDTEXT
  519. [ELLIPSE:]$S=X $S=ELLIPSE ^C^CELLIPSE
  520. [HATCH:]$S=X $S=HATCH ^C^CHATCH
  521. [INSERT:]$S=X $S=INSERT ^C^CINSERT
  522. [LINE:]$S=X $S=LINE ^C^CLINE
  523. [MINSERT:]$S=X $S=MINSERT ^C^CMINSERT
  524. [OFFSET:]$S=X $S=OFFSET ^C^COFFSET
  525. [PLINE:]$S=X $S=PLINE ^C^CPLINE
  526.  
  527. [next]$S=X $S=DR2
  528. **DR2 3
  529. [POINT:]$S=X $S=POINT ^C^CPOINT
  530. [POLYGON:]$S=X $S=POLYGON ^C^CPOLYGON
  531. [SHAPE:]$S=X $S=SHAPE ^C^CSHAPE
  532. [SKETCH:]$S=X $S=SKETCH ^C^CSKETCH
  533. [SOLID:]$S=X $S=SOLID ^C^CSOLID
  534. [TEXT:]$S=X $S=TEXT ^C^CTEXT
  535. [TRACE:]$S=X $S=TRACE ^C^CTRACE
  536. [3DFACE:]$S=X $S=3DFACE ^C^C3DFACE
  537.  
  538. [3D]$S=X $S=3D
  539.  
  540.  
  541.  
  542. [previous]$S=X $S=DR
  543.  
  544. [__LAST__]$S= $S=
  545. **ED 3
  546. [ARRAY:]$S=X $S=ARRAY ^C^CARRAY
  547. [ATTEDIT:]$S=X $S=ATTEDIT ^C^CATTEDIT
  548. [DDATTE:]^C^CDDATTE
  549. [BREAK:]$S=X $S=BREAK ^C^CBREAK
  550. [CHAMFER:]$S=X $S=CHAMFER ^C^CCHAMFER
  551. [CHANGE:]$S=X $S=CHANGE ^C^CCHANGE
  552. [CHPROP:]$S=X $S=CHPROP ^C^CCHPROP
  553. [COPY:]$S=X $S=COPY ^C^CCOPY
  554. [DIVIDE:]$S=X $S=DIVIDE ^C^CDIVIDE
  555. [ERASE:]$S=X $S=ERASE ^C^CERASE
  556. [EXPLODE:]^C^CEXPLODE
  557. [EXTEND:]$S=X $S=EXTEND ^C^CEXTEND
  558.  
  559. [next]$S=X $S=ED2
  560. **ED2 3
  561. [FILLET:]$S=X $S=FILLET ^C^CFILLET
  562. [MEASURE:]$S=X $S=MEASURE ^C^CMEASURE
  563. [MIRROR:]$S=X $S=MIRROR ^C^CMIRROR
  564. [MOVE:]$S=X $S=MOVE ^C^CMOVE
  565. [OFFSET:]$S=X $S=OFFSET ^C^COFFSET
  566. [PEDIT:]^C^C^P+
  567. (defun m:p1(/ m:pa m:pc m:d m:w)(menucmd "S=X")(menucmd "S=PSEL");+
  568. (setq m:d T)(while m:d (setq m:pc (ssget))(setq m:pa (ssname m:pc 0));+
  569. (if(=(cdr(assoc 0 (entget m:pa))) "POLYLINE")(progn(setq m:d nil)+
  570. (m:p2 m:pa m:pc))(progn(prompt "Entity selected is not a polyline")(terpri);+
  571. (if (member (cdr (assoc 0 (entget m:pa))) '("LINE" "ARC"))(progn+
  572. (initget "Yes No")(setq m:w (getkword "Do you want to turn it into one? <Y>"));+
  573. (if (or (= m:w "Yes")(null m:w))(progn(setq m:d nil)(menucmd "S=X");+
  574. (menucmd "S=P0")(command "PEDIT" m:pa "yes" pause)))))))))+
  575. (defun m:p2(m:pa m:pc / m:pb)(menucmd "S=X")+
  576. (if (= (setq m:pb (cdr (assoc 70 (entget m:pa)))) nil)(menucmd "S=P0");+
  577. (progn (setq m:pb (/ m:pb 2))(if (>= m:pb 8)(menucmd "S=P16");+
  578. (if(< m:pb 4)(menucmd "S=P0")(menucmd "S=P8")))))(command "PEDIT" m:pa pause))+
  579. (defun perror (msg)(setq *error* m:err m:err nil)(princ))+
  580. (defun C:PEDITM (/ m:err)(setq m:err *error* *error* perror)(m:p1);+
  581. (setq *error* m:err m:err nil)(princ))(princ) PEDITM ^P
  582. [ROTATE:]$S=X $S=ROTATE ^C^CROTATE
  583. [SELECT:]$S=X $S=SELECT ^C^CSELECT
  584. [SCALE:]$S=X $S=SCALE ^C^CSCALE
  585. [STRETCH:]$S=X $S=STRETCH ^C^CSTRETCH C
  586. [TRIM:]$S=X $S=TRIM ^C^CTRIM
  587. [UNDO:]$S=X $S=UNDO ^C^CUNDO
  588.  
  589. [previous]$S=X $S=ED
  590. **INQ 5
  591. [AREA:]$S=X $S=AREA ^C^CAREA
  592. [DBLIST:]^CDBLIST
  593. [DIST:]^C^CDIST
  594. [HELP:]'HELP
  595. [ID:]$S=X $S=ID ^C^CID
  596. [LIST:]$S=X $S=LIST ^C^CLIST
  597. [STATUS:]^C^CSTATUS
  598. [TIME:]^C^CTIME
  599. **SET 3
  600. [DDEMODES]'DDEMODES
  601. [DDRMODES]'DDRMODES
  602. [--------]
  603. [APERTUR:]$S=X $S=APERTURE ^C^CAPERTURE
  604. [AXIS:]$S=X $S=AXIS ^C^CAXIS
  605. [BLIPS:]$S=X $S=BLIPMODE ^C^CBLIPMODE
  606. [COLOR:]$S=X $S=COLOR ^C^CCOLOR
  607. [DRAGMOD:]$S=X $S=DRAGMODE ^C^CDRAGMODE
  608. [ELEV:]^C^CELEV
  609. [GRID:]$S=X $S=GRID ^C^CGRID
  610. [HANDLES:]$S=X $S=HANDLES ^C^CHANDLES
  611. [LINETYP:]$S=X $S=LINETYPE ^C^CLINETYPE
  612. [LIMITS:]$S=X $S=LIMITS ^C^CLIMITS
  613.  
  614. [next]$S=X $S=SET2
  615. **SET2 3
  616. [LTSCALE:]^C^CLTSCALE
  617. [OSNAP:]$S=X $S=OSNAPC ^C^COSNAP
  618. [QTEXT:]$S=X $S=QTEXT ^C^CQTEXT
  619. [SETVAR:]$S=X $S=SETVAR 'SETVAR
  620. [SNAP:]$S=X $S=SNAP ^C^CSNAP
  621. [STYLE:]$S=X $S=STYLE ^C^CSTYLE
  622. [TABLET:]$S=X $S=TABLET ^C^CTABLET
  623. [UCS:]$S=X $S=UCS1 ^C^CUCS
  624. [UCSICON:]$S=X $S=UCSICON ^C^CUCSICON
  625. [UNITS:]^CUNITS
  626. [VPORTS:]$S=X $S=VPORTS ^C^CVPORTS
  627.  
  628.  
  629.  
  630. [previous]$S=X $S=SET
  631. **PLOT 3
  632.  
  633. [ C   D]
  634. [ H   E]
  635. [ O   V]
  636. [ O   I]
  637. [ S   C]
  638. [ E   E]
  639.  
  640.  
  641. [PLOTTER]^C^CPLOT
  642.  
  643. [PRINTER]^C^CPRPLOT
  644. **UT 3
  645. [ATTEXT:]$S=X $S=ATTEXT ^C^CATTEXT
  646. [DXF/DXB]$S=X $S=DXF
  647. [FILES:]^C^CFILES
  648. [IGES]$S=X $S=IGES
  649. [MENU:]$S=X $S=CHTEMP ^C^CMENU
  650. [PURGE:]$S=X $S=PURGE ^C^CPURGE
  651. [RENAME:]$S=X $S=RENAME ^C^CRENAME
  652. [SCRIPT:]$S=X $S=SCRIPT ^C^CSCRIPT
  653. [SLIDES]$S=X $S=SLIDES
  654.  
  655. [External]$S=X $S=EXCOMDS
  656. [Commands]$S=X $S=EXCOMDS
  657.  
  658. [END]$S=X $S=END
  659. [QUIT]$S=X $S=QUIT
  660. **OSNAPB 2
  661. [  HELP  ]$S= 'help
  662. [CENter]CENTER $S=
  663. [ENDpoint]ENDPOINT $S=
  664. [INSert]INSERT $S=
  665. [INTersec]INTERSEC $S=
  666. [MIDpoint]MIDPOINT $S=
  667. [NEArest]NEAREST $S=
  668. [NODe]NODE $S=
  669. [PERpend]PERPEND $S=
  670. [QUAdrant]QUADRANT $S=
  671. [QUICK,]QUICK,^Z
  672. [TANgent]TANGENT $S=
  673. [NONE]NONE $S=
  674. [CANCEL:]^C^C$S=
  675. [U:]^C^CU $S=
  676. [REDO:]^C^CREDO $S=
  677. [REDRAW:]'REDRAW $S=
  678. [SETVAR:]$S= 'SETVAR
  679. [__LAST__]$S=
  680. **BLOCK 3
  681. [BLOCK:]^C^CBLOCK
  682. ?
  683.  
  684. Window
  685. Last
  686. Previous
  687. Crossing
  688. Remove
  689. Add
  690.  
  691. Yes
  692. [OOPS]^C^COOPS
  693. **INSERT 3
  694. [INSERT:]^C^CINSERT
  695. ?
  696. [*]*\
  697. corner
  698. xyz
  699. drag
  700.  
  701. Scale
  702. Xscale
  703. Yscale
  704. Zscale
  705. Rotate
  706. **WBLOCK 3
  707. [WBLOCK:]^C^CWBLOCK
  708.  
  709. =
  710. *
  711. [blank];
  712.  
  713. Window
  714. Last
  715. Previous
  716. Crossing
  717. Remove
  718. Add
  719. Undo
  720. **MINSERT 3
  721. [MINSERT:]^C^CMINSERT
  722. ?
  723.  
  724. corner
  725. xyz
  726. drag
  727. **DIM 3
  728. [DIM:]^C^CDIM
  729. [DIM1:]^C^CDIM1
  730.  
  731. [LINEAR]$S=X $S=DIMLINEAR
  732. angular
  733. diameter
  734. radius
  735. center
  736. leader
  737. [Dim Vars]$S=X $S=VAR1
  738. [redraw]'REDRAW
  739. status
  740. undo
  741. style
  742. [EXIT]EXIT;$S=X $S=S
  743. [next]$S=X $S=FORMAT
  744. **DIMLINEAR 3
  745. [DIM:]^C^CDIM
  746. [DIM1:]^C^CDIM1
  747.  
  748. horiz
  749. vertical
  750. aligned
  751. rotated
  752.  
  753. [baseline]^C^Cdim BASE
  754. [continue]^C^Cdim CONT
  755.  
  756.  
  757.  
  758. [previous]$S=X $S=DIM
  759. **ATTDEF 3
  760. [ATTDEF:]^C^CATTDEF
  761.  
  762. Invisibl
  763. Constant
  764. Verify
  765. [Preset]P
  766.  
  767. Aligned
  768. [Centered]C
  769. Fit
  770. Middle
  771. Right
  772. Style
  773. **LAYER 3
  774. [DDLMODES]'DDLMODES
  775. [LAYER:]^C^CLAYER
  776. [?]? *
  777.  
  778. Make
  779. Set
  780. New
  781. ON
  782. OFF
  783. [Color]COLOR $S=X $S=LACOLOR \$S=X $S=LAYER
  784. [Chroma]^C^CVSLIDE chroma
  785. [ Restore]'REDRAW
  786. [Ltype]LTYPE $S=X $S=LALT \$S=X $S=LAYER
  787. Freeze
  788. Thaw
  789. **LACOLOR 3
  790. [COLOR]
  791.  
  792. red
  793. yellow
  794. green
  795. cyan
  796. blue
  797. magenta
  798. white
  799.  
  800.  
  801.  
  802.  
  803.  
  804. **LALT 3
  805. [LINETYPE]
  806.  
  807. [contin.]CONTINUOUS
  808. dashed
  809. hidden
  810. center
  811. phantom
  812. dot
  813. dashdot
  814. border
  815. divide
  816.  
  817. **ZOOM 3
  818. [ZOOM:]'ZOOM
  819.  
  820. All
  821. [Center]C
  822. Dynamic
  823. Extents
  824. Left
  825. Previous
  826. Window
  827.  
  828. Yes
  829. No
  830. **ATTDISP 3
  831. [ATTDISP:]^C^CATTDISP
  832.  
  833. Normal
  834. ON
  835. OFF
  836. **DVIEW 3
  837. [DVIEW:]^C^CDview
  838.  
  839. Window
  840. Last
  841. Previous
  842. Crossing
  843. Remove
  844. Add
  845.  
  846. [By Layer]^P(defun berror (msg)(setq *error* m:err m:err nil)(princ))+
  847. (progn (setq m:err *error* *error* berror);+
  848. (setq l(getstring (strcat "Layer name: <" (getvar "clayer") "> ")))+
  849. (if (= l "")(setq s(ssget "X" (list(cons 8 (getvar "clayer")))))+
  850. (setq s(ssget "X" (list(cons 8 l)))))(setq *error* m:err m:err nil) s) ^P
  851. [--------]
  852. [Dviewblk]^C^CDVIEW;;
  853.  
  854. [ Dview ]$S=X $S=DVIEW1
  855. [Options]$S=X $S=DVIEW1
  856. **DVIEW1 3
  857. CAmera
  858. TArget
  859. Distance
  860. POints
  861. PAn
  862. Zoom
  863. TWist
  864. [CLip]Clip $S=X $S=DVIEW2
  865. Hide
  866. Off
  867. Undo
  868.  
  869. [eXit]Exit $S=X $S=S
  870. **DVIEW2 3
  871. [Back]Back $S=X $S=BACK
  872. [Front]Front $S=X $S=FRONT
  873. [Off]Off $S=X $S=DVIEW1
  874. **BACK 3
  875. [ back]
  876. [clipping]
  877.  
  878. [ON]On $S=X $S=DVIEW1
  879. [OFF]Off $S=X $S=DVIEW1
  880. **FRONT 3
  881. [ front]
  882. [clipping]
  883.  
  884. [ON]On $S=X $S=DVIEW1
  885. [OFF]Off $S=X $S=DVIEW1
  886.  
  887. [Eye]Eye $S=X $S=DVIEW1
  888. **RGNAUTO 3
  889. [RGNAUTO:]^C^CREGENAUTO
  890.  
  891. [ON]On $S=X $S=DS
  892. [OFF]Off $S=X $S=DS
  893. **VIEW 3
  894. [VIEW:]'VIEW
  895. ?
  896.  
  897. [Delete]Delete;
  898. [Restore]Restore;
  899. [Save]Save;
  900. [Window]Window;
  901. **VPORTS 3
  902. [VPORTS:]^C^CVPORTS
  903.  
  904. Save
  905. Restore
  906. Delete
  907. Join
  908. Single
  909. ?
  910.  
  911. [2]2 $S=X $S=VP2
  912. [3]3 $S=X $S=VP3
  913. 4
  914. **VP2 3
  915.  
  916. [Horizont]H $S=X $S=VPORTS
  917. [Vertical]V $S=X $S=VPORTS
  918. **VP3 3
  919.  
  920. [Horizont]H $S=X $S=VPORTS
  921. [Vertical]V $S=X $S=VPORTS
  922. [Above]A $S=X $S=VPORTS
  923. [Below]B $S=X $S=VPORTS
  924. [Left]L $S=X $S=VPORTS
  925. [Right]R $S=X $S=VPORTS
  926. **LINE 3
  927. [LINE:]^C^CLINE
  928.  
  929. [continue]^C^CLINE;;
  930. close
  931. undo
  932. .x
  933. .y
  934. .z
  935. .xy
  936. .xz
  937. .yz
  938. **3D 3
  939. [EDGSURF:]^C^CEDGESURF
  940. [REVSURF:]^C^CREVSURF
  941. [RULSURF:]^C^CRULESURF
  942. [TABSURF:]^C^CTABSURF
  943.  
  944. [Surftb1:]'SETVAR SURFTAB1
  945. [Surftb2:]'SETVAR SURFTAB2
  946.  
  947. [3DFACE:]$S=X $S=3DFACE ^C^C3DFACE
  948. [3DMESH:]^C^C3DMESH
  949. [3DPOLY:]$S=X $S=3DPOLY ^C^C3DPOLY
  950.  
  951. [  3d   ]^C^C^P(progn(setq m:err *error*)(princ))+
  952. (defun m:l3d () (cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  953. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  954. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn(terpri)(prompt +
  955. "The file `3d.lsp' was not found in your search path directories. ")(terpri);+
  956. (prompt "Check installation of the Support Files and try again.");+
  957. (princ))))((not (null C:BOX)) (menucmd "S=X") (menucmd "S=3D2")(princ))+
  958. (T(princ)))(setq *error* m:err m:err nil))(defun *error* (msg)(princ msg);+
  959. (menucmd "S=X")(menucmd "S=S")(setq *error* m:err m:err nil)(princ))(m:l3d);^P
  960. [objects]^C^C^P(progn(setq m:err *error*)(princ))+
  961. (defun m:l3d () (cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  962. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  963. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn(terpri)(prompt +
  964. "The file `3d.lsp' was not found in your search path directories. ")(terpri);+
  965. (prompt "Check installation of the Support Files and try again.");+
  966. (princ))))((not (null C:BOX)) (menucmd "S=X") (menucmd "S=3D2")(princ))+
  967. (T(princ)))(setq *error* m:err m:err nil))(defun *error* (msg)(princ msg);+
  968. (menucmd "S=X")(menucmd "S=S")(setq *error* m:err m:err nil)(princ))(m:l3d);^P
  969.  
  970. **3D2 3
  971.  
  972. Box
  973. Cone
  974. Dish
  975. Dome
  976. Mesh
  977. Pyramid
  978. Sphere
  979. Torus
  980. Wedge
  981. **ELEVTHK 3
  982. [ELEV:]^C^CELEV
  983.  
  984. [CHANGE:]^C^CCHANGE
  985. Window
  986. Last
  987. Previous
  988. Crossing
  989. Remove
  990. Add
  991. Undo
  992. [Elev]PROP E
  993. [Thick]PROP T
  994. **HIDE 3
  995. [HIDE ?]
  996.  
  997. [YES]^C^CHIDE
  998. [NO]$S= $S=
  999. **VPOINT 3
  1000. [VPOINT:]^C^CVPOINT
  1001.  
  1002. [rotate]rotate;
  1003. [axes];
  1004. [plan]none 0,0,1
  1005.  
  1006. [HIDE:]$S=X $S=HIDE
  1007. **VPOINT3D 3
  1008. [ Angle  ]^C^CVPOINT R;;
  1009. [from XY ]^C^CVPOINT R;;
  1010. [ Plane  ]^C^CVPOINT R;;
  1011. [    +80 ]<<80
  1012. [    +60 ]<<60
  1013. [    +45 ]<<45
  1014. [    +30 ]<<30
  1015. [    +10 ]<<10
  1016. [      0 ]<<0.0000001
  1017. [    -10 ]<<350
  1018. [    -30 ]<<330
  1019. [    -45 ]<<315
  1020. [    -60 ]<<300
  1021. [    -80 ]<<280
  1022. **PLINE 3
  1023. [PLINE:]^C^CPLINE
  1024.  
  1025. [Arc]ARC $S=X $S=PARC
  1026. Close
  1027. Halfwid
  1028. Length
  1029. Undo
  1030. Width
  1031.  
  1032. [FILL ON]'SETVAR FILLMODE 1
  1033. [FILL OFF]'SETVAR FILLMODE 0
  1034. **PARC 3
  1035. [POLYARC]
  1036.  
  1037. [angle]$S=X $S=PARCANG A
  1038. [CEnter]$S=X $S=PARCEN CE
  1039. [tanDir]D \DRAG
  1040. [Radius]$S=X $S=PARCRAD R
  1041. [2nd PT]S \DRAG
  1042. [CLose]$S=X $S=PLINE CLOSE
  1043.  
  1044. undo
  1045.  
  1046. [contline]$S=X $S=PLINE L
  1047.  
  1048. [PLINE:]$S=X $S=PLINE ^C^CPLINE
  1049. **PARCANG 3
  1050. [ANGLE]
  1051.  
  1052. [center]$S=X $S=PARC Center drag
  1053. [radius]$S=X $S=PARC R \
  1054. [drag]$S=X $S=PARC drag
  1055. **PARCEN 3
  1056. [CENTER]
  1057.  
  1058. [angle]$S=X $S=PARC A drag
  1059. [length]$S=X $S=PARC L drag
  1060. [drag]$S=X $S=PARC drag
  1061. **PARCRAD 3
  1062. [RADIUS]
  1063.  
  1064. [angle]A \drag $S=X $S=PARC A \drag
  1065. [drag]$S=X $S=PARC drag
  1066. **OFFSET 3
  1067. [OFFSET:]^C^COFFSET
  1068.  
  1069. Through
  1070.  
  1071. [done];
  1072.  
  1073. **ARC 3
  1074. [ARC]
  1075.  
  1076. [3-point:]^C^CARC \\DRAG
  1077. [S,C,E:]^C^CARC \C \DRAG
  1078. [S,C,A:]^C^CARC \C \A DRAG
  1079. [S,C,L:]^C^CARC \C \L DRAG
  1080. [S,E,A:]^C^CARC \E \A
  1081. [S,E,R:]^C^CARC \E \R
  1082. [S,E,D:]^C^CARC \E \D DRAG
  1083. [C,S,E:]^C^CARC C \\DRAG
  1084. [C,S,A:]^C^CARC C \\A DRAG
  1085. [C,S,L:]^C^CARC C \\L DRAG
  1086. [CONTIN:]^C^CARC ;DRAG
  1087. **popARC 3
  1088. [ARC]
  1089.  
  1090. [3-point:]*^C^CARC \\DRAG
  1091. [S,C,E:]*^C^CARC \C \DRAG
  1092. [S,C,A:]*^C^CARC \C \A DRAG
  1093. [S,C,L:]*^C^CARC \C \L DRAG
  1094. [S,E,A:]*^C^CARC \E \A
  1095. [S,E,R:]*^C^CARC \E \R
  1096. [S,E,D:]*^C^CARC \E \D DRAG
  1097. [C,S,E:]*^C^CARC C \\DRAG
  1098. [C,S,A:]*^C^CARC C \\A DRAG
  1099. [C,S,L:]*^C^CARC C \\L DRAG
  1100. [CONTIN:]^C^CARC ;DRAG
  1101. **CIRCLE 3
  1102. [CIRCLE]
  1103.  
  1104. [CEN,RAD:]^C^CCIRCLE \DRAG
  1105. [CEN,DIA:]^C^CCIRCLE \D
  1106. [2 POINT:]^C^CCIRCLE 2P \DRAG
  1107. [3 POINT:]^C^CCIRCLE 3P \\DRAG
  1108. [TTR:]^C^CCIRCLE TTR
  1109. **popCIRCL 3
  1110. [CIRCLE]
  1111.  
  1112. [CEN,RAD:]*^C^CCIRCLE \DRAG
  1113. [CEN,DIA:]*^C^CCIRCLE \D
  1114. [2 POINT:]*^C^CCIRCLE 2P \DRAG
  1115. [3 POINT:]*^C^CCIRCLE 3P \\DRAG
  1116. [TTR:]*^C^CCIRCLE TTR
  1117. **ASHADE 3
  1118. [LIGHTS:]^C^C$S=X $S=LIGHTS LIGHT
  1119. [CAMERA:]^C^C$S=X $S=CAMERA CAMERA
  1120. [ACTION]^C^C$S=X $S=ACTION
  1121.  
  1122. [CAMVIEW:]^C^CCAMVIEW
  1123. **LIGHTS 3
  1124. [LIGHT:]^C^CLIGHT
  1125.  
  1126. [Point]p
  1127. Directed
  1128.  
  1129. [Filters]
  1130. .x
  1131. .y
  1132. .z
  1133. .xy
  1134. .xz
  1135. .yz
  1136.  
  1137. [CAMERA:]^C^C$S=X $S=CAMERA CAMERA
  1138. [ACTION]$S=X $S=ACTION
  1139. **CAMERA 3
  1140. [CAMERA:]^C^CCAMERA
  1141.  
  1142. [Filters]
  1143. .x
  1144. .y
  1145. .z
  1146. .xy
  1147. .xz
  1148. .yz
  1149.  
  1150. [CAMVIEW:]^C^CCAMVIEW
  1151.  
  1152.  
  1153. [LIGHTS:]^C^C$S=X $S=LIGHTS LIGHT
  1154. [ACTION]$S=X $S=ACTION
  1155. **ACTION 3
  1156. [ACTION]
  1157.  
  1158. [SCENE:]^C^CSCENE
  1159. [FLMROLL:]^C^CFILMROLL
  1160.  
  1161.  
  1162.  
  1163.  
  1164.  
  1165.  
  1166.  
  1167.  
  1168.  
  1169. [LIGHTS:]^C^C$S=X $S=LIGHTS LIGHT
  1170. [CAMERA:]^C^C$S=X $S=CAMERA CAMERA
  1171. **ELLIPSE 3
  1172. [ELLIPSE:]^C^CELLIPSE
  1173.  
  1174. [Center]C
  1175. Rotation
  1176. Iso
  1177. Diameter
  1178. **POLYGON 3
  1179. [POLYGON:]^C^CPOLYGON
  1180.  
  1181. Edge
  1182. [I-scribe]I
  1183. [C-scribe]C
  1184. **SHAPE 3
  1185. [SHAPE:]^C^CSHAPE
  1186. ?
  1187.  
  1188. [LOAD:]^C^CLOAD
  1189. ?
  1190. **SKETCH 3
  1191. [SKETCH:]^C^CSKETCH
  1192.  
  1193. Connect
  1194. Erase
  1195. Record
  1196.  
  1197. [eXit]x
  1198. Quit
  1199.  
  1200. [------]
  1201. [SKPOLY:]'SETVAR SKPOLY 1
  1202. [SKLINE:]'SETVAR SKPOLY 0
  1203. [------]
  1204. **SOLID 3
  1205. [SOLID:]^C^CSOLID
  1206.  
  1207. [FILL ON]'SETVAR FILLMODE 1
  1208. [FILL OFF]'SETVAR FILLMODE 0
  1209. **TRACE 3
  1210. [TRACE:]^C^CTRACE
  1211.  
  1212. [FILL ON]'SETVAR FILLMODE 1
  1213. [FILL OFF]'SETVAR FILLMODE 0
  1214. **POINT 3
  1215. [POINT:]^C^CPOINT
  1216. .x
  1217. .y
  1218. .z
  1219. .xy
  1220. .xz
  1221. .yz
  1222.  
  1223. [Complex]
  1224. [Points]
  1225. [example:]^C^CVSLIDE points
  1226. [remove]^C^CREDRAW
  1227. [example:]^C^CREDRAW
  1228. [Pdmode:]'SETVAR PDMODE
  1229. [Pdsize:]'SETVAR PDSIZE
  1230. **HATCH 3
  1231. [HATCH:]^C^CHATCH
  1232. ?
  1233.  
  1234. u
  1235. u,o
  1236. u,i
  1237. Yes
  1238.  
  1239. Window
  1240. Last
  1241. Previous
  1242. Crossing
  1243. Remove
  1244. Add
  1245. Undo
  1246. **3DFACE 3
  1247. [3DFACE:]^C^C3DFACE
  1248.  
  1249. .x
  1250. .y
  1251. .z
  1252. .xy
  1253. .xz
  1254. .yz
  1255.  
  1256. [Invisibl]I
  1257.  
  1258. [ShowEdge]^P(setvar "splframe" 1)(prompt "Invisible edges will be SHOWN after next Regeneration.")(princ) ^P
  1259. [HideEdge]^P(setvar "splframe" 0)(prompt "Invisible edges will be HIDDEN after next Regeneration.")(princ) ^P
  1260.  
  1261. **3DPOLY 3
  1262. [3DPOLY:]^C^C3DPOLY
  1263.  
  1264. Close
  1265. Undo
  1266. .x
  1267. .y
  1268. .z
  1269. .xy
  1270. .xz
  1271. .yz
  1272. **ID 3
  1273. [ID:]^C^CID
  1274.  
  1275. .x
  1276. .y
  1277. .z
  1278. .xy
  1279. .xz
  1280. .yz
  1281. **LIMITS 3
  1282.  
  1283. [LIMITS:]^C^CLIMITS
  1284.  
  1285. ON
  1286. OFF
  1287. **UCS1 3
  1288. [UCS:]^C^CUCS
  1289. [DDUCS:]^C^CDDUCS
  1290.  
  1291. ?
  1292. Previous
  1293. Restore
  1294. [Save]S
  1295. Delete
  1296. World
  1297.  
  1298. [RENAME:]^C^CRename UCS
  1299. [Follow:]'SETVAR UCSFOLLOW
  1300.  
  1301. [next]$S=X $S=UCS2
  1302. **UCS2 3
  1303. [UCS:]$S=X $S=UCS1 ^C^CUCS
  1304.  
  1305. Origin
  1306. Zaxis
  1307. 3point
  1308.  
  1309. X
  1310. Y
  1311. Z
  1312.  
  1313. View
  1314. Entity
  1315.  
  1316. [previous]$S=X $S=UCS1
  1317. **UCSICON 3
  1318. [UCSICON:]^C^CUCSICON
  1319.  
  1320. ON
  1321. OFF
  1322.  
  1323. All
  1324. Origin
  1325. Noorigin
  1326. **PLAN 3
  1327. [PLAN:]^C^CPLAN
  1328.  
  1329. Current
  1330. UCS
  1331. World
  1332.  
  1333. [Follow:]'SETVAR UCSFOLLOW
  1334. **LIST 3
  1335. [LIST:]^C^CLIST
  1336.  
  1337. Window
  1338. Last
  1339. Previous
  1340. Crossing
  1341. Remove
  1342. Add
  1343. Undo
  1344. **AREA 3
  1345. [AREA:]^C^CAREA
  1346.  
  1347. Entity
  1348. Add
  1349. Subtract
  1350. **TEXT 3
  1351. [TEXT:]^C^CTEXT
  1352. [DTEXT:]^C^CDTEXT
  1353.  
  1354. aligned
  1355. [centered]C
  1356. fit
  1357. middle
  1358. right
  1359. style
  1360.  
  1361. [STYLE:]$S=X $S=STYLE ^C^CSTYLE
  1362. **TEXTSET 5
  1363. [DTEXT]$S=X $S=DTEXT ^C^C$T4=DTEXT1 $T4=DTEXT2
  1364.  
  1365. [REG.TEXT]$S=X $S=TEXT ^C^C$T4=TEXT1 $T4=TEXT2
  1366.  
  1367. [STYLE:]$S=X $S=STYLE ^C^CSTYLE
  1368. **STYLE 3
  1369. [STYLE:]^C^CSTYLE
  1370. ?
  1371.  
  1372. [Fonts]$S=X $S=F1
  1373.  
  1374. Yes
  1375. No
  1376.  
  1377. [DTEXT:]$S=X $S=DTEXT ^C^CDTEXT
  1378. [TEXT:]$S=X $S=TEXT ^C^CTEXT
  1379. **F1 3
  1380. Cyrillic
  1381. Cyriltlc
  1382. Greekc
  1383. Greeks
  1384. Gothice
  1385. Gothicg
  1386. Gothici
  1387. Italicc
  1388. Italict
  1389. Romanc
  1390. Romand
  1391. Romans
  1392.  
  1393.  
  1394.  
  1395.  
  1396. [next]$S=X $S=F2
  1397. [STYLMNU]$S=X $S=STYLE
  1398. **F2 3
  1399. Romant
  1400. Scriptc
  1401. Scripts
  1402. Syastro
  1403. Symap
  1404. Symath
  1405. Symeteo
  1406. Symusic
  1407.  
  1408.  
  1409.  
  1410.  
  1411.  
  1412.  
  1413.  
  1414.  
  1415. [previous]$S=X $S=F1
  1416. [STYLMNU]$S=X $S=STYLE
  1417. **DTEXT 3
  1418. [DTEXT:]^C^CDTEXT
  1419. [TEXT:]^C^CTEXT
  1420.  
  1421. [centered]C
  1422. right
  1423. aligned
  1424. middle
  1425. fit
  1426. style
  1427.  
  1428. [STYLE:]$S=X $S=STYLE ^C^CSTYLE
  1429. **AXIS 3
  1430. [AXIS:]^C^CAXIS
  1431.  
  1432. [axs=snap]SNAP
  1433.  
  1434. ON
  1435. OFF
  1436. Aspect
  1437. **BLIPMODE 3
  1438. [BLIPS:]^C^CBLIPMODE
  1439.  
  1440. ON
  1441. OFF
  1442. **END 3
  1443. END ?
  1444.  
  1445. [Yes]^C^CEND
  1446. [No]$S=X $S=S
  1447. **QUIT 3
  1448. [QUIT:]^c^cquit
  1449.  
  1450. [Yes]Y
  1451. [No]n $S=X $S=S
  1452. **VAR1 3
  1453. [dimalt]$S=X $S=OF DIMALT \
  1454. [dimaltd]DIMALTD \
  1455. [dimaltf]DIMALTF \
  1456. [dimapost]DIMAPOST \
  1457. [dimaso]$S=X $S=OF DIMASO \
  1458. [dimasz]DIMASZ \
  1459. [--------]
  1460. [dimblk]DIMBLK \
  1461. [dimblk1]DIMBLK1 \
  1462. [dimblk2]DIMBLK2 \
  1463. [--------]
  1464. [dimcen]DIMCEN \
  1465. [dimdle]DIMDLE \
  1466. [dimdli]DIMDLI \
  1467. [dimexe]DIMEXE \
  1468.  
  1469. [next]$S=X $S=VAR2
  1470. [DIMMENU]$S=X $S=DIM
  1471.  
  1472.  
  1473. **VAR2 3
  1474. [dimexo]DIMEXO \
  1475. [dimlfac]DIMLFAC \
  1476. [dimlim]$S=X $S=OF DIMLIM \
  1477. [dimpost]DIMPOST \
  1478. [dimrnd]DIMRND \
  1479. [dimsah]$S=X $S=OF DIMSAH \
  1480. [dimscale]DIMSCALE \
  1481. [dimse1]$S=X $S=OF DIMSE1 \
  1482. [dimse2]$S=X $S=OF DIMSE2 \
  1483. [dimsho]$S=X $S=OF DIMSHO \
  1484. [dimsoxd]$S=X $S=OF DIMSOXD \
  1485. [dimtad]$S=X $S=OF DIMTAD \
  1486. [dimtih]$S=X $S=OF DIMTIH \
  1487. [dimtix]$S=X $S=OF DIMTIX \
  1488.  
  1489. [previous]$S=X $S=VAR1
  1490. [next]$S=X $S=VAR3
  1491. [DIMMENU]$S=X $S=DIM
  1492.  
  1493.  
  1494. **VAR3 3
  1495. [dimtm]DIMTM \
  1496. [dimtofl]$S=X $S=OF DIMTOFL \
  1497. [dimtoh]$S=X $S=OF DIMTOH \
  1498. [dimtol]$S=X $S=OF DIMTOL \
  1499. [dimtp]DIMTP \
  1500. [dimtsz]DIMTSZ \
  1501. [dimtvp]DIMTVP \
  1502. [dimtxt]DIMTXT \
  1503. [dimzin]$S=X $S=DIMZIN DIMZIN \
  1504.  
  1505.  
  1506.  
  1507.  
  1508.  
  1509.  
  1510.  
  1511. [previous]$S=X $S=VAR2
  1512. [DIMMENU]$S=X $S=DIM
  1513. **OF 3
  1514. [ON]$S= $S= ON
  1515.  
  1516. [OFF]$S= $S= OFF
  1517. **DIMZIN 4
  1518. [  New]
  1519. [ Dimzin]
  1520. [ Value]
  1521.  
  1522.  
  1523.  
  1524.  
  1525. [0]$S= $S= 0
  1526. [1]$S= $S= 1
  1527. [2]$S= $S= 2
  1528. [3]$S= $S= 3
  1529. **FORMAT 3
  1530. [DIM:]^C^CDIM
  1531. [DIM1:]^C^CDIM1
  1532.  
  1533. [HOMETEXT]$S=X $S=HOMETEXT HOMETEXT
  1534. [UPDATE]$S=X $S=UPDATE UPDATE
  1535. [NEWTEXT]$S=X $S=NEWTEXT NEWTEXT
  1536.  
  1537.  
  1538.  
  1539.  
  1540.  
  1541.  
  1542.  
  1543.  
  1544.  
  1545. [DIMMENU]$S=X $S=DIM
  1546. **HOMETEXT 3
  1547. [DIM:]^C^CDIM
  1548. [DIM1:]^C^CDIM1
  1549.  
  1550. HOMETEXT
  1551.  
  1552. Window
  1553. Last
  1554. Previous
  1555. Crossing
  1556. Remove
  1557. Add
  1558. Undo
  1559. **UPDATE 3
  1560. [DIM:]^C^CDIM
  1561. [DIM1:]^C^CDIM1
  1562.  
  1563. UPDATE
  1564.  
  1565. Window
  1566. Last
  1567. Previous
  1568. Crossing
  1569. Remove
  1570. Add
  1571. Undo
  1572. **NEWTEXT 3
  1573. [DIM:]^C^CDIM
  1574. [DIM1:]^C^CDIM1
  1575.  
  1576. [NEWTEXT]NEWTEXT
  1577.  
  1578. Window
  1579. Last
  1580. Previous
  1581. Crossing
  1582. Remove
  1583. Add
  1584. Undo
  1585. **LINETYPE 3
  1586. [LINETYP:]^C^CLINETYPE
  1587. ?
  1588.  
  1589. Create
  1590. Load
  1591. [Set]S $S=X $S=CHLT \$S=X $S=LINETYPE
  1592.  
  1593. Yes
  1594. No
  1595. **LIMITS 3
  1596. [LIMITS:]^C^CLIMITS
  1597.  
  1598. On
  1599. Off
  1600. **SNAP 3
  1601. [SNAP:]^C^CSNAP
  1602.  
  1603. ON
  1604. OFF
  1605.  
  1606. [Aspect]A;
  1607. [Rotate]R;
  1608.  
  1609. [Style]S;
  1610. [ Iso]Iso;
  1611. [ Standrd]Standard;
  1612. **TABLET 3
  1613. [TABLET:]^C^CTABLET
  1614.  
  1615. cal
  1616. [config]CFG 4 25 9 11 9 9 13 25 7 Y
  1617. [re-cfg]CFG 4 Y 25 9 11 9 9 13 25 7 Y
  1618. ON
  1619. OFF
  1620. Yes
  1621. No
  1622. **OSNAPC 3
  1623. [OSNAP:]^C^COSNAP
  1624.  
  1625. [CENter]CENTER\
  1626. [ENDpoint]ENDPOINT\
  1627. [INSert]INSERT\
  1628. [INTersec]INTERSEC\
  1629. [MIDpoint]MIDPOINT\
  1630. [NEArest]NEAREST\
  1631. [NODe]NODE\
  1632. [PERpend]PERPEND\
  1633. [QUAdrant]QUADRANT\
  1634. [TANgent]TANGENT\
  1635. [NONE]^C^COSNAP NONE $S= $S=
  1636. [Quick,]QUICK,^Z
  1637. [,],\
  1638. **DRAGMODE 3
  1639. [DRAGMODE]^C^CDRAGMODE
  1640.  
  1641. [ON]ON $S=X $S=S
  1642. [OFF]OFF $S=X $S=S
  1643. [Auto]A $S=X $S=S
  1644.  
  1645. **GRID 3
  1646. [GRID:]^C^CGRID
  1647.  
  1648. [grd=snap]SNAP
  1649.  
  1650. ON
  1651. OFF
  1652. Aspect
  1653. **HANDLES 3
  1654. [HANDLES:]^C^CHANDLES
  1655.  
  1656. [ON]ON
  1657. [DESTROY]DESTROY
  1658.  
  1659. **SETVAR 3
  1660. [SETVAR:]^C^CSETVAR
  1661. ?
  1662.  
  1663. ['SETVAR]'SETVAR
  1664. **QTEXT 3
  1665. [QTEXT:]^C^CQTEXT
  1666.  
  1667. ON
  1668. OFF
  1669. [REGEN:]REGEN
  1670. **VIEWRES 3
  1671. [VIEWRES:]^C^CVIEWRES
  1672.  
  1673. No
  1674. Yes
  1675.  
  1676. 100
  1677. 500
  1678.  
  1679. [RGNAUTO:]^C^CREGENAUTO
  1680. [ On]On
  1681. [ Off]Off
  1682. **APERTURE 3
  1683. [APERTUR:]'SETVAR APERTURE
  1684. [PICKBOX:]'SETVAR PICKBOX
  1685.  
  1686. [1]$S= $S= 1
  1687. [2]$S= $S= 2
  1688. [3]$S= $S= 3
  1689. [4]$S= $S= 4
  1690. [5]$S= $S= 5
  1691. [6]$S= $S= 6
  1692. [7]$S= $S= 7
  1693. [8]$S= $S= 8
  1694. [9]$S= $S= 9
  1695. [10]$S= $S= 10
  1696. [15]$S= $S= 15
  1697. **ARRAY 3
  1698. [ARRAY:]^C^CARRAY
  1699.  
  1700. Window
  1701. Last
  1702. Previous
  1703. Crossing
  1704. Remove
  1705. Add
  1706. Undo
  1707.  
  1708. Rectang
  1709. Polar
  1710. Yes
  1711. No
  1712. **ROTATE 3
  1713. [ROTATE:]^C^CROTATE
  1714.  
  1715. Window
  1716. Last
  1717. Previous
  1718. Crossing
  1719. Remove
  1720. Add
  1721. Undo
  1722.  
  1723. Referenc
  1724. **SELECT 3
  1725. [SELECT:]^C^CSELECT
  1726.  
  1727. Window
  1728. Last
  1729. Previous
  1730. Crossing
  1731. Remove
  1732. Add
  1733. Undo
  1734. **SCALE 3
  1735. [SCALE:]^C^CSCALE
  1736.  
  1737. Window
  1738. Last
  1739. Previous
  1740. Crossing
  1741. Remove
  1742. Add
  1743. Undo
  1744.  
  1745. Referenc
  1746. **BREAK 3
  1747. [BREAK:]^C^CBREAK
  1748.  
  1749. First
  1750. @
  1751. **BREAK2P 3
  1752. [BREAK:]^C^CBREAK \F
  1753. **BREAKSPL 3
  1754. [BREAK:]^C^CBREAK \F \@
  1755. **MOVE 3
  1756. [MOVE:]^C^CMOVE
  1757.  
  1758. Window
  1759. Last
  1760. Previous
  1761. Crossing
  1762. Remove
  1763. Add
  1764. Undo
  1765. **COPY 3
  1766. [COPY:]^C^CCOPY
  1767.  
  1768. Window
  1769. Last
  1770. Previous
  1771. Crossing
  1772. Remove
  1773. Add
  1774. Undo
  1775.  
  1776. Multiple
  1777. **UNDO 3
  1778. [UNDO:]^C^CUNDO
  1779.  
  1780. [Back 1]^C^CUNDO 1
  1781.  
  1782. [Auto]$S=X $S=UNDOA Auto
  1783. Back
  1784. End
  1785. Group
  1786. Mark
  1787. [Control]$S=X $S=UNDOC Control
  1788.  
  1789. Yes
  1790. No
  1791.  
  1792. [REDO:]REDO
  1793. **UNDOC 3
  1794. All
  1795. None
  1796. One
  1797. **UNDOA 3
  1798. On
  1799. Off
  1800. **ERASE 3
  1801. [ERASE:]^C^CERASE
  1802.  
  1803. Window
  1804. Last
  1805. Previous
  1806. Crossing
  1807. Remove
  1808. Add
  1809. Undo
  1810.  
  1811. [OOPS:]^C^COOPS
  1812. **PSEL 3
  1813.  
  1814. Window
  1815. Last
  1816. Crossing
  1817.  
  1818. Yes
  1819. No
  1820. **P0 3
  1821. [PEDIT:]^C^C^P+
  1822. (defun m:p1(/ m:pa m:pc m:d m:w)(menucmd "S=X")(menucmd "S=PSEL");+
  1823. (setq m:d T)(while m:d (setq m:pc (ssget))(setq m:pa (ssname m:pc 0));+
  1824. (if(=(cdr(assoc 0 (entget m:pa))) "POLYLINE")(progn(setq m:d nil)+
  1825. (m:p2 m:pa m:pc))(progn(prompt "Entity selected is not a polyline")(terpri);+
  1826. (if (member (cdr (assoc 0 (entget m:pa))) '("LINE" "ARC"))(progn+
  1827. (initget "Yes No")(setq m:w (getkword "Do you want to turn it into one? <Y>"));+
  1828. (if (or (= m:w "Yes")(null m:w))(progn(setq m:d nil)(menucmd "S=X");+
  1829. (menucmd "S=P0")(command "PEDIT" m:pa "yes" pause)))))))))+
  1830. (defun m:p2(m:pa m:pc / m:pb)(menucmd "S=X")+
  1831. (if (= (setq m:pb (cdr (assoc 70 (entget m:pa)))) nil)(menucmd "S=P0");+
  1832. (progn (setq m:pb (/ m:pb 2))(if (>= m:pb 8)(menucmd "S=P16");+
  1833. (if(< m:pb 4)(menucmd "S=P0")(menucmd "S=P8")))))(command "PEDIT" m:pa pause))+
  1834. (defun perror (msg)(setq *error* m:err m:err nil)(princ))+
  1835. (defun C:PEDITM (/ m:err)(setq m:err *error* *error* perror)(m:p1);+
  1836. (setq *error* m:err m:err nil)(princ))(princ) PEDITM ^P
  1837.  
  1838. Close
  1839. Open
  1840. Join
  1841. Width
  1842. [Ed Vrtx]E $S=X $S=PVERTED
  1843. [Fit Curv]Fit
  1844. Spline
  1845. Decurve
  1846. [Undo]U
  1847. [eXit]X $S=X $S=S
  1848.  
  1849. [PolyVars]$S=X $S=PVARS $i=poly $i=*
  1850. **P8 3
  1851. [PEDIT:]^C^C^P+
  1852. (defun m:p1(/ m:pa m:pc m:d m:w)(menucmd "S=X")(menucmd "S=PSEL");+
  1853. (setq m:d T)(while m:d (setq m:pc (ssget))(setq m:pa (ssname m:pc 0));+
  1854. (if(=(cdr(assoc 0 (entget m:pa))) "POLYLINE")(progn(setq m:d nil)+
  1855. (m:p2 m:pa m:pc))(progn(prompt "Entity selected is not a polyline")(terpri);+
  1856. (if (member (cdr (assoc 0 (entget m:pa))) '("LINE" "ARC"))(progn+
  1857. (initget "Yes No")(setq m:w (getkword "Do you want to turn it into one? <Y>"));+
  1858. (if (or (= m:w "Yes")(null m:w))(progn(setq m:d nil)(menucmd "S=X");+
  1859. (menucmd "S=P0")(command "PEDIT" m:pa "yes" pause)))))))))+
  1860. (defun m:p2(m:pa m:pc / m:pb)(menucmd "S=X")+
  1861. (if (= (setq m:pb (cdr (assoc 70 (entget m:pa)))) nil)(menucmd "S=P0");+
  1862. (progn (setq m:pb (/ m:pb 2))(if (>= m:pb 8)(menucmd "S=P16");+
  1863. (if(< m:pb 4)(menucmd "S=P0")(menucmd "S=P8")))))(command "PEDIT" m:pa pause))+
  1864. (defun perror (msg)(setq *error* m:err m:err nil)(princ))+
  1865. (defun C:PEDITM (/ m:err)(setq m:err *error* *error* perror)(m:p1);+
  1866. (setq *error* m:err m:err nil)(princ))(princ) PEDITM ^P
  1867.  
  1868. Close
  1869. Open
  1870. [Ed Vrtx]E $S=X $S=3DPVERTED
  1871. Spline
  1872. Decurve
  1873. [Undo]U
  1874. [eXit]X $S=X $S=S
  1875.  
  1876. [PolyVars]$S=X $S=PVARS $i=poly $i=*
  1877. **P16 3
  1878. [PEDIT:]^C^C^P+
  1879. (defun m:p1(/ m:pa m:pc m:d m:w)(menucmd "S=X")(menucmd "S=PSEL");+
  1880. (setq m:d T)(while m:d (setq m:pc (ssget))(setq m:pa (ssname m:pc 0));+
  1881. (if(=(cdr(assoc 0 (entget m:pa))) "POLYLINE")(progn(setq m:d nil)+
  1882. (m:p2 m:pa m:pc))(progn(prompt "Entity selected is not a polyline")(terpri);+
  1883. (if (member (cdr (assoc 0 (entget m:pa))) '("LINE" "ARC"))(progn+
  1884. (initget "Yes No")(setq m:w (getkword "Do you want to turn it into one? <Y>"));+
  1885. (if (or (= m:w "Yes")(null m:w))(progn(setq m:d nil)(menucmd "S=X");+
  1886. (menucmd "S=P0")(command "PEDIT" m:pa "yes" pause)))))))))+
  1887. (defun m:p2(m:pa m:pc / m:pb)(menucmd "S=X")+
  1888. (if (= (setq m:pb (cdr (assoc 70 (entget m:pa)))) nil)(menucmd "S=P0");+
  1889. (progn (setq m:pb (/ m:pb 2))(if (>= m:pb 8)(menucmd "S=P16");+
  1890. (if(< m:pb 4)(menucmd "S=P0")(menucmd "S=P8")))))(command "PEDIT" m:pa pause))+
  1891. (defun perror (msg)(setq *error* m:err m:err nil)(princ))+
  1892. (defun C:PEDITM (/ m:err)(setq m:err *error* *error* perror)(m:p1);+
  1893. (setq *error* m:err m:err nil)(princ))(princ) PEDITM ^P
  1894.  
  1895. [Ed Vrtx]E $S=X $S=3DMVERTED
  1896. Smooth
  1897. Desmooth
  1898. [Mclose]M
  1899. [Nclose]N
  1900. [Mopen]M
  1901. [Nopen]N
  1902.  
  1903. [Undo]U
  1904. [eXit]X $S=X $S=S
  1905.  
  1906. [PolyVars]$S=X $S=PVARS $i=poly $i=*
  1907. **PVERTED 3
  1908. [ED VRTX]
  1909.  
  1910. Next
  1911. Previous
  1912. Break
  1913. Insert
  1914. Move
  1915. Straight
  1916. Width
  1917. Tangent
  1918. Go
  1919. Regen
  1920. [Undo]X U $S=X $S=P0
  1921. [eXit]X $S=X $S=P0
  1922. **3DPVERTED 3
  1923. [ED VRTX]
  1924.  
  1925. Next
  1926. Previous
  1927. Break
  1928. Insert
  1929. Move
  1930. Regen
  1931. Straight
  1932. [eXit]X $S=X $S=P8
  1933. **3DMVERTED 3
  1934. [ED VRTX]
  1935.  
  1936. Next
  1937. Previous
  1938. Left
  1939. Right
  1940. Up
  1941. Down
  1942. Move
  1943. Regen
  1944. [eXit]X $S=X $S=P16
  1945. **PVARS 3
  1946. [Polyvars]$i=poly $i=*
  1947.  
  1948. [SPLframe]'SETVAR SPLFRAME
  1949. [ On]1
  1950. [ Off]0
  1951. [SPLsegs]'SETVAR SPLINESEGS
  1952. [SPLtype]'SETVAR SPLINETYPE
  1953. [ Quad]5
  1954. [ Cubic]6
  1955. [SURFtype]'SETVAR SURFTYPE
  1956. [ Quad]5
  1957. [ Cubic]6
  1958. [ Bezier]8
  1959. [UDensity]'SETVAR SURFU
  1960. [VDensity]'SETVAR SURFV
  1961. **TRIM 3
  1962. [TRIM:]^C^CTRIM
  1963.  
  1964. Window
  1965. Last
  1966. Previous
  1967. Crossing
  1968. Remove
  1969. Add
  1970. Undo
  1971. **ATTEXT 3
  1972. [ATTEXT:]^C^CATTEXT
  1973.  
  1974. CDF
  1975. SDF
  1976. DXF
  1977. [Entities]Ent
  1978.  
  1979. Window
  1980. Last
  1981. Previous
  1982. Crossing
  1983. Remove
  1984. Add
  1985. Undo
  1986. **SLIDES 3
  1987. [MSLIDE:]^C^CMSLIDE
  1988.  
  1989. [VSLIDE:]^C^CVSLIDE
  1990.  
  1991. **SCRIPT 3
  1992. [SCRIPT:]^C^CSCRIPT
  1993.  
  1994. [RESUME:]'RESUME
  1995. [RSCRIPT:]^C^CRSCRIPT
  1996. **PURGE 3
  1997. [PURGE:]^C^CPURGE
  1998.  
  1999. Blocks
  2000. LAyers
  2001. LTypes
  2002. SHapes
  2003. STyles
  2004. All
  2005.  
  2006. Yes
  2007. No
  2008. **RENAME 3
  2009. [RENAME:]^C^CRENAME
  2010.  
  2011. Block
  2012. LAyer
  2013. LType
  2014. Style
  2015. Ucs
  2016. VIew
  2017. VPort
  2018.  
  2019. **DXF 3
  2020. [DXFIN:]^C^CDXFIN
  2021.  
  2022. [DXFOUT:]^C^CDXFOUT
  2023. 16
  2024. Entities
  2025.  
  2026. Window
  2027. Last
  2028. Previous
  2029. Crossing
  2030. Remove
  2031. Add
  2032. Undo
  2033.  
  2034. [DXBIN:]^C^CDXBIN
  2035. **IGES 3
  2036. [IGESIN:]^C^CIGESIN
  2037.  
  2038. [IGESOUT:]^C^CIGESOUT
  2039. **EXTEND 3
  2040. [EXTEND:]^C^CEXTEND
  2041.  
  2042. Window
  2043. Last
  2044. Previous
  2045. Crossing
  2046. Remove
  2047. Add
  2048. Undo
  2049.  
  2050. [SELECT:]^C^CSELECT
  2051. [ZOOM W:]'ZOOM W
  2052. **STRETCH 3
  2053. [STRETCH:]^C^CSTRETCH C
  2054.  
  2055. Window
  2056. Last
  2057. Previous
  2058. Crossing
  2059. Remove
  2060. Add
  2061. Undo
  2062. **MIRROR 3
  2063. [MIRROR:]^C^CMIRROR
  2064. Window
  2065. Last
  2066. Previous
  2067. Crossing
  2068. Remove
  2069. Add
  2070. Undo
  2071.  
  2072. Yes
  2073. No
  2074. **FILLET0 3
  2075. [FILLET:0]^C^CFILLET R 0;;
  2076.  
  2077. [polyline]P
  2078. **FILLET 3
  2079. [FILLET:]^C^CFILLET
  2080.  
  2081. [radius]R \FILLET
  2082. [radius 0]R 0 FILLET
  2083. polyline
  2084. **CHAMFER 3
  2085. [CHAMFER:]^C^CCHAMFER
  2086.  
  2087. [distance]D \\CHAMFER
  2088. [dist = 0]D 0 0 CHAMFER
  2089. polyline
  2090. **DIVIDE 3
  2091. [DIVIDE:]^C^CDIVIDE
  2092.  
  2093. Block
  2094. Yes
  2095. No
  2096. **MEASURE 3
  2097. [MEASURE:]^C^CMEASURE
  2098.  
  2099. Block
  2100. Yes
  2101. No
  2102. **CHANGE 3
  2103. [CHANGE:]^C^CCHANGE
  2104. Window
  2105. Last
  2106. Previous
  2107. Crossing
  2108. Remove
  2109. Add
  2110. Undo
  2111. [Color]PROP COLOR $S=X $S=CHCOLOR \ $S=X $S=CHANGE
  2112. [Chroma]^C^CVSLIDE chroma
  2113. [ Restore]^C^CREDRAW
  2114. [Elev]PROP ELEV
  2115. [LAyer]PROP LAYER
  2116. [LType]PROP LT $S=X $S=CHLT \$S=X $S=CHANGE
  2117. [Thicknes]PROP THICKNESS
  2118. **CHPROP 3
  2119. [CHPROP:]^C^CCHPROP
  2120. Window
  2121. Last
  2122. Previous
  2123. Crossing
  2124. Remove
  2125. Add
  2126. Undo
  2127. [Color]PROP COLOR $S=X $S=CHCOLOR \$S=X $S=CHPROP
  2128. [Chroma]^C^CVSLIDE chroma
  2129. [ Restore]^C^CREDRAW
  2130. [LAyer]PROP LAYER
  2131. [LType]PROP LT $S=X $S=CHLT \$S=X $S=CHPROP
  2132. [Thicknes]PROP THICKNESS
  2133. **CHCOLOR 3
  2134. [COLOR]
  2135.  
  2136. bylayer
  2137. byblock
  2138.  
  2139. red
  2140. yellow
  2141. green
  2142. cyan
  2143. blue
  2144. magenta
  2145. white
  2146. **CHLT 3
  2147. [LTYPE]
  2148.  
  2149. bylayer
  2150. byblock
  2151.  
  2152. [contin.]CONTINUOUS
  2153. dashed
  2154. hidden
  2155. center
  2156. phantom
  2157. dot
  2158. dashdot
  2159. border
  2160. divide
  2161.  
  2162. **COLOR 3
  2163. [COLOR:]^C^CCOLOR
  2164. bylayer
  2165. byblock
  2166. red
  2167. yellow
  2168. green
  2169. cyan
  2170. blue
  2171. magenta
  2172. white
  2173.  
  2174. [Chroma]^C^CVSLIDE chroma
  2175. [ Restore]^C^CREDRAW
  2176. **ATTEDIT 3
  2177. [ATTEDIT:]^C^CATTEDIT
  2178. Window
  2179. Last
  2180. Crossing
  2181. Remove
  2182. Add
  2183. Undo
  2184.  
  2185. [Value]Value $S=X $S=ATTEDIT2
  2186. Position
  2187. Height
  2188. Angle
  2189. Style
  2190. Layer
  2191. [Color] $S=X $S=ATTCOLOR C
  2192. Next
  2193.  
  2194. [__LAST__]$S= $S=
  2195. **ATTEDIT2 3
  2196.  
  2197. [Change]Change $S=X $S=ATTEDIT
  2198. [Replace]Replace $S=X $S=ATTEDIT
  2199. **ATTCOLOR 3
  2200. [COLOR]
  2201.  
  2202. [red]RED $S= $S=
  2203. [yellow]YELLOW $S= $S=
  2204. [green]GREEN $S= $S=
  2205. [cyan]CYAN $S= $S=
  2206. [blue]BLUE $S= $S=
  2207. [magenta]MAGENTA $S= $S=
  2208. [white]WHITE $S= $S=
  2209. **UNITS 2
  2210.  
  2211. [UNIT    ]
  2212. [TYPE    ]
  2213.  
  2214. [scientfc]1;
  2215.  
  2216. [decimal ]2;
  2217.  
  2218. [enginrng]3;
  2219.  
  2220. [archtect]4;
  2221.  
  2222. [metric  ]5;
  2223.  
  2224.  
  2225.  
  2226.  
  2227.  
  2228.  
  2229. **U1 2
  2230.  
  2231. [Scientfc]
  2232. [Scale   ]
  2233.  
  2234.  
  2235. [4 TIMES ]4.0;
  2236.  
  2237. [2 TIMES ]2.0;
  2238.  
  2239. [FULL    ]1.0;
  2240.  
  2241. [HALF    ]0.5;
  2242.  
  2243. [QUARTER ]0.25;
  2244.  
  2245. [OTHER   ]^P0;^P
  2246.  
  2247.  
  2248.  
  2249.  
  2250. **U2 2
  2251.  
  2252. [Decimal ]
  2253. [Scale   ]
  2254.  
  2255.  
  2256. [4 TIMES ]4.0;
  2257.  
  2258. [2 TIMES ]2.0;
  2259.  
  2260. [FULL    ]1.0;
  2261.  
  2262. [HALF    ]0.5;
  2263.  
  2264. [QUARTER ]0.25;
  2265.  
  2266. [OTHER   ]^P0;^P
  2267.  
  2268.  
  2269.  
  2270.  
  2271. **U3 2
  2272.  
  2273. [Enginrng]
  2274. [Scale   ]
  2275.  
  2276.  
  2277. [1"=10'  ]120.0;
  2278. [1"=20'  ]240.0;
  2279.  
  2280. [1"=30'  ]360.0;
  2281. [1"=40'  ]480.0;
  2282.  
  2283. [1"=50'  ]600.0;
  2284. [1"=60'  ]720.0;
  2285.  
  2286. [1"=80'  ]960.0;
  2287. [1"=100' ]1200.0;
  2288.  
  2289. [OTHER   ]^P0;^P
  2290.  
  2291.  
  2292. **U4 2
  2293.  
  2294. [Archtect]
  2295.  
  2296.  
  2297. [1/40"=1']480.0;
  2298. [1/20"=1']240.0;
  2299. [1/16"=1']192.0;
  2300. [ 1/8"=1']96.0;
  2301. [ 1/4"=1']48.0;
  2302.  
  2303. [ 1/2"=1']24.0;
  2304. [ 3/4"=1']16.0;
  2305. [   1"=1']12.0;
  2306. [   3"=1']4.0;
  2307. [   6"=1']2.0;
  2308. [  FULL  ]1.0;
  2309.  
  2310. [OTHER...]^P0;^P
  2311.  
  2312.  
  2313. **U5 2
  2314.  
  2315. [Metric  ]
  2316.  
  2317. [ 1:5000 ]5000.0;
  2318. [ 1:2000 ]2000.0;
  2319. [ 1:1000 ]1000.0;
  2320. [ 1:500  ]500.0;
  2321. [ 1:200  ]200.0;
  2322.  
  2323. [ 1:100  ]100.0;
  2324. [ 1:75   ]75.0;
  2325. [ 1:50   ]50.0;
  2326. [ 1:20   ]20.0;
  2327. [ 1:10   ]10.0;
  2328. [ 1:5    ]5.0;
  2329. [  FULL  ]1.0;
  2330.  
  2331. [OTHER...]^P0;^P
  2332.  
  2333.  
  2334. **ENGLISH 2
  2335.  
  2336. [Horizntl]
  2337.  
  2338. [ Sheet  ]
  2339. [ Size   ]
  2340.  
  2341. [A-8.5x11]11.0 8.5;
  2342. [B- 11x17]17.0 11.0;
  2343. [C- 17x22]22.0 17.0;
  2344. [   18x24]24.0 18.0;
  2345.  
  2346. [D- 22X34]34.0 22.0;
  2347. [   24x36]36.0 24.0;
  2348. [E- 34x44]44.0 34.0;
  2349.  
  2350. [OTHER...]^P0 0;^P
  2351.  
  2352. [VERTCAL>]$S=X $S=ENGVERT
  2353.  
  2354.  
  2355. **ENGVERT 2
  2356.  
  2357. [Vertical]
  2358.  
  2359. [ Sheet  ]
  2360. [ Size   ]
  2361.  
  2362. [A-8.5x11]8.5 11.0;
  2363. [B- 11x17]11.0 17.0;
  2364. [C- 17x22]17.0 22.0;
  2365. [   18x24]18.0 24.0;
  2366.  
  2367. [D- 22X34]22.0 34.0;
  2368. [   24x36]24.0 36.0;
  2369. [E- 34x44]34.0 44.0;
  2370.  
  2371. [OTHER...]^P0 0;^P
  2372.  
  2373. [HORZNTL>]$S=X $S=ENGLISH
  2374.  
  2375.  
  2376. **METRIC 2
  2377.  
  2378. [Horizntl]
  2379.  
  2380. [ Sheet  ]
  2381. [ Size   ]
  2382.  
  2383. [1189x841]1189.0 841.0;
  2384. [1000x707]1000.0 707.0;
  2385. [ 841x594]841.0 594.0;
  2386.  
  2387. [ 594x420]594.0 420.0;
  2388. [ 420x297]420.0 297.0;
  2389. [ 297x210]297.0 210.0;
  2390.  
  2391. [OTHER...]^P0 0;^P
  2392.  
  2393.  
  2394. [VERTCAL>]$S=X $S=METRICVERT
  2395.  
  2396.  
  2397. **METRICVERT 2
  2398.  
  2399. [Vertical]
  2400.  
  2401. [ Sheet  ]
  2402. [ Size   ]
  2403.  
  2404. [1189x841]841.0 1189.0;
  2405. [1000x707]707.0 1000.0;
  2406. [ 841x594]594.0 841.0;
  2407.  
  2408. [ 594x420]420.0 594.0;
  2409. [ 420x297]297.0 420.0;
  2410. [ 297x210]210.0 297.0;
  2411.  
  2412. [OTHER...]^P0 0;^P
  2413.  
  2414.  
  2415. [HORZNTL>]$S=X $S=METRIC
  2416.  
  2417.  
  2418. **CHTEMP 3
  2419. [Change  ]
  2420. [Template]
  2421.  
  2422. [Arch...]^C^C^P(progn(if v:acam(progn(command "menu" (strcat v:acam "aec-a"))+
  2423. (prompt "AEC Architectural loaded."))(prompt "AEC Architectural not available.")+
  2424. )(princ)) ^P
  2425. [Mech...]^C^C^P(progn(if v:acmm(progn(command "menu" (strcat v:acmm "aec-m"))+
  2426. (prompt "AEC Mechanical loaded."))(prompt "AEC Mechanical not available.")+
  2427. )(princ)) ^P
  2428. **EXCOMDS 3
  2429. [CATALOG:]^C^CCATALOG
  2430. [DEL:]^C^CDEL
  2431. [DIR:]^C^CDIR
  2432. [EDIT:]^C^CEDIT
  2433. [SH:]^C^CSH
  2434. [SHELL:]^C^CSHELL
  2435. [TYPE:]^C^CTYPE
  2436.  
  2437. ***TABLET1
  2438. [A-1]
  2439. [A-2]
  2440. [A-3]
  2441. [A-4]
  2442. [A-5]
  2443. [A-6]
  2444. [A-7]
  2445. [A-8]
  2446. [A-9]
  2447. [A-10]
  2448. [A-11]
  2449. [A-12]
  2450. [A-13]
  2451. [A-14]
  2452. [A-15]
  2453. [A-16]
  2454. [A-17]
  2455. [A-18]
  2456. [A-19]
  2457. [A-20]
  2458. [A-21]
  2459. [A-22]
  2460. [A-23]
  2461. [A-24]
  2462. [A-25]
  2463. [B-1]
  2464. [B-2]
  2465. [B-3]
  2466. [B-4]
  2467. [B-5]
  2468. [B-6]
  2469. [B-7]
  2470. [B-8]
  2471. [B-9]
  2472. [B-10]
  2473. [B-11]
  2474. [B-12]
  2475. [B-13]
  2476. [B-14]
  2477. [B-15]
  2478. [B-16]
  2479. [B-17]
  2480. [B-18]
  2481. [B-19]
  2482. [B-20]
  2483. [B-21]
  2484. [B-22]
  2485. [B-23]
  2486. [B-24]
  2487. [B-25]
  2488. [C-1]
  2489. [C-2]
  2490. [C-3]
  2491. [C-4]
  2492. [C-5]
  2493. [C-6]
  2494. [C-7]
  2495. [C-8]
  2496. [C-9]
  2497. [C-10]
  2498. [C-11]
  2499. [C-12]
  2500. [C-13]
  2501. [C-14]
  2502. [C-15]
  2503. [C-16]
  2504. [C-17]
  2505. [C-18]
  2506. [C-19]
  2507. [C-20]
  2508. [C-21]
  2509. [C-22]
  2510. [C-23]
  2511. [C-24]
  2512. [C-25]
  2513. [D-1]
  2514. [D-2]
  2515. [D-3]
  2516. [D-4]
  2517. [D-5]
  2518. [D-6]
  2519. [D-7]
  2520. [D-8]
  2521. [D-9]
  2522. [D-10]
  2523. [D-11]
  2524. [D-12]
  2525. [D-13]
  2526. [D-14]
  2527. [D-15]
  2528. [D-16]
  2529. [D-17]
  2530. [D-18]
  2531. [D-19]
  2532. [D-20]
  2533. [D-21]
  2534. [D-22]
  2535. [D-23]
  2536. [D-24]
  2537. [D-25]
  2538. [E-1]
  2539. [E-2]
  2540. [E-3]
  2541. [E-4]
  2542. [E-5]
  2543. [E-6]
  2544. [E-7]
  2545. [E-8]
  2546. [E-9]
  2547. [E-10]
  2548. [E-11]
  2549. [E-12]
  2550. [E-13]
  2551. [E-14]
  2552. [E-15]
  2553. [E-16]
  2554. [E-17]
  2555. [E-18]
  2556. [E-19]
  2557. [E-20]
  2558. [E-21]
  2559. [E-22]
  2560. [E-23]
  2561. [E-24]
  2562. [E-25]
  2563. [F-1]
  2564. [F-2]
  2565. [F-3]
  2566. [F-4]
  2567. [F-5]
  2568. [F-6]
  2569. [F-7]
  2570. [F-8]
  2571. [F-9]
  2572. [F-10]
  2573. [F-11]
  2574. [F-12]
  2575. [F-13]
  2576. [F-14]
  2577. [F-15]
  2578. [F-16]
  2579. [F-17]
  2580. [F-18]
  2581. [F-19]
  2582. [F-20]
  2583. [F-21]
  2584. [F-22]
  2585. [F-23]
  2586. [F-24]
  2587. [F-25]
  2588. [G-1]^c^cMENU DEN10
  2589. [G-2]
  2590. [G-3]
  2591. [G-4]
  2592. [G-5]
  2593. [G-6]
  2594. [G-7]
  2595. [G-8]
  2596. [G-9]
  2597. [G-10]
  2598. [G-11]
  2599. [G-12]
  2600. [G-13]
  2601. [G-14]
  2602. [G-15]
  2603. [G-16]
  2604. [G-17]
  2605. [G-18]
  2606. [G-19]
  2607. [G-20]
  2608. [G-21]
  2609. [G-22]
  2610. [G-23]
  2611. [G-24]
  2612. [G-25]
  2613. [H-1]^c^cMENU OAT10
  2614. [H-2]
  2615. [H-3]
  2616. [H-4]
  2617. [H-5]
  2618. [H-6]
  2619. [H-7]
  2620. [H-8]
  2621. [H-9]
  2622. [H-10]
  2623. [H-11]
  2624. [H-12]
  2625. [H-13]
  2626. [H-14]
  2627. [H-15]
  2628. [H-16]
  2629. [H-17]
  2630. [H-18]
  2631. [H-19]
  2632. [H-20]
  2633. [H-21]
  2634. [H-22]
  2635. [H-23]
  2636. [H-24]
  2637. [H-25]
  2638. ;
  2639. ;
  2640. ;
  2641. ;
  2642. ;
  2643. ;
  2644. ;
  2645. ;
  2646. ;
  2647. ;
  2648. ;
  2649. ;
  2650. ;
  2651. ;
  2652. ;
  2653. ;
  2654. ;
  2655. ;
  2656. ;
  2657. ;
  2658. ;
  2659. ;
  2660. ;
  2661. ;
  2662. ;
  2663. ***TABLET2
  2664. $S=X $S=HIDE
  2665. $S=X $S=VPOINT VPOINT;;
  2666. $S=X $S=ELEVTHK ^C^CELEV
  2667. $S=X $S=UCS1 ^C^CUCS
  2668. ^C^CUCS;PREV
  2669. ^C^CUCS;V
  2670. ;
  2671. ^O
  2672. $S=X $S=ZOOM 'ZOOM W
  2673. $S=X $S=LINE ^C^CLINE
  2674. 'REDRAW
  2675. [VPOINT  ]^C^CVPOINT R;<<135;$S=X $S=VPOINT3D
  2676. [VPT rear]^C^CVPOINT R;<<90;$S=X $S=VPOINT3D
  2677. [VPOINT  ]^C^CVPOINT R;<<45;$S=X $S=VPOINT3D
  2678. $S=X $S=UCS1 ^C^CUCS
  2679. ^C^CUCS;;
  2680. ^C^CPLAN;W
  2681. ;
  2682. ^O
  2683. $S=X $S=ZOOM 'ZOOM W
  2684. $S=X $S=PLINE ^C^CPLINE
  2685. 'REDRAW
  2686. [VPT left]^C^CVPOINT R;<<180;$S=X $S=VPOINT3D
  2687. [VPT plan]^C^CPLAN;;
  2688. [VPT rigt]^C^CVPOINT R;<<0;$S=X $S=VPOINT3D
  2689. $S=X $S=DVIEW ^C^CDVIEW
  2690. $S=X $S=DVIEW ^C^CSELECT;\DVIEW;P;;CA;\\;
  2691. $S=X $S=DVIEW ^C^C$S=X $S=DVIEW1 DVIEW;;
  2692. ;
  2693. ^D
  2694. $S=X $S=ZOOM 'ZOOM D
  2695. $S=X $S=ARC ^C^CARC
  2696. 'REDRAW
  2697. [VPOINT  ]^C^CVPOINT R;<<225;$S=X $S=VPOINT3D
  2698. [VPT frnt]^C^CVPOINT R;<<270;$S=X $S=VPOINT3D
  2699. [VPOINT  ]^C^CVPOINT R;<<315;$S=X $S=VPOINT3D
  2700. $S=X $S=DVIEW ^C^CDVIEW
  2701. $S=X $S=DVIEW ^C^CSELECT;\DVIEW;P;;Z;\;
  2702. $S=X $S=DVIEW ^C^CSELECT;\DVIEW;P;;PA;\\;
  2703. ;
  2704. ^Q
  2705. $S=X $S=ZOOM 'ZOOM A
  2706. $S=X $S=CIRCLE ^C^CCIRCLE
  2707. 'REDRAW
  2708. ^C^C^P(progn(setq m:err *error*)(prin1))(defun *error* (msg)(princ msg)+
  2709. (setq *error* m:err m:err nil)(princ))(cond ((null C:LIGHT)(vmon)+
  2710. (if (/= nil (findfile "ashade.lsp"))(progn (terpri);+
  2711. (prompt "Please wait...  Loading ashade.  ")(load "ashade")+
  2712. (menucmd "S=X")(menucmd "S=LIGHTS")(setq *error* m:err m:err nil))(progn (terpri);+
  2713. (prompt "The file 'Ashade.lsp' was not found in your current search directories")+
  2714. (terpri)(prompt "Check your AutoShade Manual for installation instructions.");+
  2715. (setq *error* m:err m:err nil)(princ))))+
  2716. (T (setq *error* m:err m:err nil)(menucmd "S=X")(menucmd "S=LIGHTS")(princ)));+
  2717. (if (and C:LIGHT as-err)(C:LIGHT)(prompt "LIGHT is not properly loaded."))(princ) ^P
  2718. ^C^C^P(progn(setq m:err *error*)(prin1))(defun *error* (msg)(princ msg)+
  2719. (setq *error* m:err m:err nil)(princ))(cond ((null C:CAMERA)(vmon)+
  2720. (if (/= nil (findfile "ashade.lsp"))(progn (terpri);+
  2721. (prompt "Please wait...  Loading ashade.  ")(load "ashade")+
  2722. (menucmd "S=X")(menucmd "S=CAMERA")(setq *error* m:err m:err nil))(progn (terpri);+
  2723. (prompt "The file 'Ashade.lsp' was not found in your current search directories")+
  2724. (terpri)(prompt "Check your AutoShade Manual for installation instructions.");+
  2725. (setq *error* m:err m:err nil)(princ))))+
  2726. (T (setq *error* m:err m:err nil)(menucmd "S=X")(menucmd "S=CAMERA")(princ)));+
  2727. (if (and C:CAMERA as-err)(C:CAMERA)(prompt "CAMERA is not properly loaded."))(princ) ^P
  2728. ^C^C^P(progn(setq m:err *error*)(prin1))(defun *error* (msg)(princ msg)+
  2729. (setq *error* m:err m:err nil)(princ))(cond ((null C:LIGHT)(vmon)+
  2730. (if (/= nil (findfile "ashade.lsp"))(progn (terpri);+
  2731. (prompt "Please wait...  Loading ashade.  ")(load "ashade")+
  2732. (menucmd "S=X")(menucmd "S=ACTION")(setq *error* m:err m:err nil))(progn (terpri);+
  2733. (prompt "The file 'Ashade.lsp' was not found in your current search directories")+
  2734. (terpri)(prompt "Check your AutoShade Manual for installation instructions.");+
  2735. (setq *error* m:err m:err nil)(princ))))+
  2736. (T (setq *error* m:err m:err nil)(menucmd "S=X")(menucmd "S=ACTION")(princ))) ^P
  2737. $S=X $S=3D ^C^CRULESURF
  2738. $S=X $S=3D ^C^CREVSURF
  2739. $S=X $S=3DFACE ^C^C3DFACE
  2740. ;
  2741. 'GRAPHSCR
  2742. $S=X $S=ZOOM 'ZOOM P
  2743. $S=X $S=ELLIPSE ^C^CELLIPSE
  2744. 'REDRAW
  2745. $S=X $S=VPORTS ^C^CVPORTS
  2746. $S=X $S=VPORTS ^C^CVPORTS;JOIN
  2747. ^C^CVPORTS;SI
  2748. $S=X $S=3D ^C^CEDGESURF
  2749. $S=X $S=3D ^C^CTABSURF
  2750. $S=X $S=3DPOLY ^C^C3DPOLY
  2751. ;
  2752. ^E
  2753. $S=X $S=ZOOM 'ZOOM E
  2754. $S=X $S=POLYGON ^C^CPOLYGON
  2755. 'REDRAW
  2756. ;
  2757. ;
  2758. ;
  2759. ;
  2760. ;
  2761. ;
  2762. ;
  2763. ^G
  2764. $S=X $S=ZOOM 'ZOOM
  2765. $S=X $S=POINT ^C^CPOINT
  2766. 'REDRAW
  2767. $S=X $S=BLOCK ^C^CBLOCK
  2768. $S=X $S=INSERT ^C^CINSERT
  2769. $S=X $S=ATTDEF ^C^CATTDEF
  2770. ;
  2771. $S=X $S=LAYER ^C^CLAYER
  2772. $S=X $S=LAYER ^C^CLAYER
  2773. ;
  2774. ^B
  2775. $S=X $S=PAN 'PAN
  2776. ^C^CDONUT
  2777. 'REDRAW
  2778. $S=X $S=WBLOCK ^C^CWBLOCK
  2779. $S=X $S=MINSERT ^C^CMINSERT
  2780. $S=X $S=ATTDEF ^C^CATTDEF
  2781. ;
  2782. $S=X $S=LAYER ^C^CLAYER ? *;;
  2783. ^C^CLAYER S \;
  2784. ;
  2785. ^B
  2786. $S=X $S=DS
  2787. $S=X $S=DR
  2788. 'REDRAW
  2789. ***TABLET3
  2790. ;
  2791. ;
  2792. ;
  2793. <<135
  2794. <<135
  2795. <<90
  2796. <<90
  2797. <<45
  2798. <<45
  2799. ;
  2800. ;
  2801. ;
  2802. <<180
  2803. <<180
  2804. <\
  2805. <\
  2806. <<0
  2807. <<0
  2808. ;
  2809. ;
  2810. ;
  2811. <<225
  2812. <<225
  2813. <<270
  2814. <<270
  2815. <<315
  2816. <<315
  2817. ;
  2818. ;
  2819. ;
  2820. ^H
  2821. ^H
  2822. ^H
  2823. ^H
  2824. ^H
  2825. ^H
  2826. ;
  2827. ;
  2828. ;
  2829. 7/8\
  2830. 7/8\
  2831. /16\
  2832. /16\
  2833. /32\
  2834. /32\
  2835. ;
  2836. ;
  2837. ;
  2838. 1/2\
  2839. 1/2\
  2840. 5/8\
  2841. 5/8\
  2842. 3/4\
  2843. 3/4\
  2844. ;
  2845. ;
  2846. ;
  2847. 1/8\
  2848. 1/8\
  2849. 1/4\
  2850. 1/4\
  2851. 3/8\
  2852. 3/8\
  2853. ;
  2854. ;
  2855. ;
  2856. -\
  2857. -\
  2858. /\
  2859. /\
  2860. X\
  2861. X\
  2862. ;
  2863. ;
  2864. ;
  2865. @\
  2866. @\
  2867. '\
  2868. '\
  2869. "\
  2870. "\
  2871. ;
  2872. ;
  2873. ;
  2874. 7\
  2875. 7\
  2876. 8\
  2877. 8\
  2878. 9\
  2879. 9\
  2880.  
  2881. ;
  2882. ;
  2883. 4\
  2884. 4\
  2885. 5\
  2886. 5\
  2887. 6\
  2888. 6\
  2889. ;
  2890. ;
  2891. ;
  2892. 1\
  2893. 1\
  2894. 2\
  2895. 2\
  2896. 3\
  2897. 3\
  2898.  
  2899. ;
  2900. ;
  2901. 0\
  2902. 0\
  2903. .\
  2904. .\
  2905. ,\
  2906. ,\
  2907. ***TABLET4
  2908. ;
  2909. ;
  2910. ;
  2911. ;
  2912. ;
  2913. ;
  2914. ;
  2915. ;
  2916. ;
  2917. ;
  2918. ;
  2919. ;
  2920. ;
  2921. ;
  2922. ;
  2923. ;
  2924. ;
  2925. ;
  2926. ;
  2927. ;
  2928. ;
  2929. ;
  2930. ;
  2931. ;
  2932. ;
  2933. ^C^CTIME
  2934. $S=X $S=ID ^C^CID
  2935. ^C^CSTATUS
  2936. $S=X $S=LIST ^C^CLIST
  2937. 'HELP
  2938. 'HELP
  2939. ;
  2940. $S=X $S=DTEXT ^C^CDTEXT
  2941. $S=X $S=DTEXT ^C^CDTEXT C
  2942. $S=X $S=DTEXT ^C^CDTEXT R
  2943. ;
  2944. ^C^COSNAP NONE
  2945. CENTER
  2946. ENDPOINT
  2947. INSERT
  2948. INTERSEC
  2949. MIDPOINT
  2950. NEAREST
  2951. NODE
  2952. PERPEND
  2953. QUADRANT
  2954. TANGENT
  2955. ;
  2956. ^C^CSAVE
  2957. ^C^CSAVE
  2958. ^C^CDBLIST
  2959. $S=X $S=AREA ^C^CAREA
  2960. ^C^CDIST
  2961. $S=X $S=LIST ^C^CLIST
  2962. 'HELP
  2963. 'HELP
  2964. ;
  2965. $S=X $S=DTEXT ^C^CDTEXT A
  2966. $S=X $S=DTEXT ^C^CDTEXT M
  2967. $S=X $S=DTEXT ^C^CDTEXT F
  2968. ;
  2969. ^C^C
  2970. ^C^C
  2971. ^C^CU
  2972. ^C^CREDO
  2973. MULTIPLE
  2974. WINDOW
  2975. LAST
  2976. PREVIOUS
  2977. CROSSING
  2978. REMOVE
  2979. ADD
  2980. ;
  2981. $S=X $S=END ^C^CEND
  2982. $S=X $S=QUIT ^C^CQUIT
  2983. ;
  2984. ;
  2985. ;
  2986. ;
  2987. ;
  2988. ;
  2989. ;
  2990. ;
  2991. ;
  2992. ;
  2993. ;
  2994. ;
  2995. ;
  2996. ;
  2997. ;
  2998. ;
  2999. ;
  3000. ;
  3001. ;
  3002. ;
  3003. ;
  3004. ;
  3005. ;
  3006. ^C^CFILES
  3007. ^C^CFILES
  3008. ^C^CDIM1 STATUS
  3009. $S=X $S=VAR1 ^C^CDIM
  3010. UNDO
  3011. 'REDRAW
  3012. EXIT;$S=X $S=S
  3013. EXIT;$S=X $S=S
  3014. ;
  3015. $S=X $S=TEXTSET
  3016. $S=X $S=SNAP ^C^CSNAP
  3017. $S=X $S=GRID ^C^CGRID
  3018. ;
  3019. $S=X $S=SCALE ^C^CSCALE
  3020. $S=X $S=ROTATE ^C^CROTATE
  3021. $S=X $S=OFFSET ^C^COFFSET
  3022. $S=X $S=MOVE ^C^CMOVE
  3023. $S=X $S=ERASE ^C^CERASE
  3024. $S=X $S=ERASE ^C^CERASE
  3025. ^C^COOPS
  3026. ^C^C^P+
  3027. (defun m:p1(/ m:pa m:pc m:d m:w)(menucmd "S=X")(menucmd "S=PSEL");+
  3028. (setq m:d T)(while m:d (setq m:pc (ssget))(setq m:pa (ssname m:pc 0));+
  3029. (if(=(cdr(assoc 0 (entget m:pa))) "POLYLINE")(progn(setq m:d nil)+
  3030. (m:p2 m:pa m:pc))(progn(prompt "Entity selected is not a polyline")(terpri);+
  3031. (if (member (cdr (assoc 0 (entget m:pa))) '("LINE" "ARC"))(progn+
  3032. (initget "Yes No")(setq m:w (getkword "Do you want to turn it into one? <Y>"));+
  3033. (if (or (= m:w "Yes")(null m:w))(progn(setq m:d nil)(menucmd "S=X");+
  3034. (menucmd "S=P0")(command "PEDIT" m:pa "yes" pause)))))))))+
  3035. (defun m:p2(m:pa m:pc / m:pb)(menucmd "S=X")+
  3036. (if (= (setq m:pb (cdr (assoc 70 (entget m:pa)))) nil)(menucmd "S=P0");+
  3037. (progn (setq m:pb (/ m:pb 2))(if (>= m:pb 8)(menucmd "S=P16");+
  3038. (if(< m:pb 4)(menucmd "S=P0")(menucmd "S=P8")))))(command "PEDIT" m:pa pause))+
  3039. (defun perror (msg)(setq *error* m:err m:err nil)(princ))+
  3040. (defun C:PEDITM (/ m:err)(setq m:err *error* *error* perror)(m:p1);+
  3041. (setq *error* m:err m:err nil)(princ))(princ) PEDITM ^P
  3042. ^C^CEXPLODE
  3043. $S=X $S=ARRAY ^C^CARRAY
  3044. $S=X $S=DIVIDE ^C^CDIVIDE
  3045. ;
  3046. ^C^CPLOT
  3047. ^C^CPRPLOT
  3048. $S=X $S=DIM ^C^CDIM1
  3049. $S=X $S=DIM ^C^CDIM LEADER
  3050. $S=X $S=DIMLINEAR BASELINE
  3051. $S=X $S=DIMLINEAR CONTIN
  3052. $S=X $S=DIMLINEAR ^C^CDIM VERT
  3053. $S=X $S=DIMLINEAR ^C^CDIM HORIZ
  3054. ;
  3055. $S=X $S=AXIS ^C^CAXIS
  3056. $S=X $S=SET
  3057. $S=X $S=OSNAPC ^C^COSNAP
  3058. ;
  3059. $S=X $S=MIRROR ^C^CMIRROR
  3060. $S=X $S=BREAK2P ^C^CBREAK \F
  3061. $S=X $S=BREAKSPL ^C^CBREAK \F \@
  3062. $S=X $S=COPY ^C^CCOPY
  3063. $S=X $S=EXTEND ^C^CEXTEND
  3064. $S=X $S=STRETCH ^C^CSTRETCH C
  3065. $S=X $S=TRIM ^C^CTRIM
  3066. $S=X $S=FILLET0 ^C^CFILLET R 0;;
  3067. $S=X $S=FILLET ^C^CFILLET
  3068. $S=X $S=CHAMFER ^C^CCHAMFER
  3069. $S=X $S=MEASURE ^C^CMEASURE
  3070. ;
  3071. $S=X $S=UT
  3072. $S=X $S=CHTEMP ^C^CMENU
  3073. $S=X $S=DIM ^C^CDIM CENTER
  3074. $S=X $S=DIM ^C^CDIM RADIUS
  3075. $S=X $S=DIM ^C^CDIM DIAMETER
  3076. $S=X $S=DIM ^C^CDIM ANGULAR
  3077. $S=X $S=DIM ^C^CDIM ROTATED
  3078. $S=X $S=DIMLINEAR ^C^CDIM ALIGNED
  3079. ;
  3080. $S=X $S=QTEXT ^C^CQTEXT
  3081. $S=X $S=DRAGMODE ^C^CDRAGMODE
  3082. $S=X $S=APERTURE
  3083. ;
  3084.  
  3085.  
  3086.  
  3087.  
  3088. $S=X $S=CHANGE ^C^CCHANGE
  3089. $S=X $S=CHANGE ^C^CCHANGE
  3090. $S=X $S=ATTEDIT ^C^CATTEDIT
  3091.  
  3092.  
  3093.  
  3094.  
  3095. ;
  3096. $S=X $S=EXCOMDS
  3097. $S=X $S=EXCOMDS
  3098. **DTEXT1 33
  3099. $S=X $S=DTEXT ^C^CDTEXT
  3100. $S=X $S=DTEXT ^C^CDTEXT C
  3101. $S=X $S=DTEXT ^C^CDTEXT R
  3102. **DTEXT2 58
  3103. $S=X $S=DTEXT ^C^CDTEXT A
  3104. $S=X $S=DTEXT ^C^CDTEXT M
  3105. $S=X $S=DTEXT ^C^CDTEXT F
  3106. **TEXT1 33
  3107. $S=X $S=TEXT ^C^CTEXT
  3108. $S=X $S=TEXT ^C^CTEXT C
  3109. $S=X $S=TEXT ^C^CTEXT R
  3110. **TEXT2 58
  3111. $S=X $S=TEXT ^C^CTEXT A
  3112. $S=X $S=TEXT ^C^CTEXT M
  3113. $S=X $S=TEXT ^C^CTEXT F
  3114.